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Abstract 


VOGTMANN,  RUSSELL  S.  2nd  Lt. ,  U.S.  Air  Force,  1987. 
Project  Bidding  Under  Chance  Time  Estimates  (Under  the 
direction  of  Salah  E.  Elmaghraby.)  76pp.  Master  of 
Science,  North  Carolina  State  University. 

.  The  bidding  for  the  contract  of  a  project  is  a  very 
important  phase  in  the  life  of  the  project.  In  today's  com¬ 
petitive  market  for  a  project  contract,  it  is  essential  to 
have  accurate  information  in  order  to  make  a  bid  that  will 
yield  a  profit  and  sl^ill  win  the  contract. 

>— Xft-  this  thesis examine,  projects  that  can  be  modeled 
by  directed  acyclic  networks  under  probabilistic  activity 
durations  and  costs  (the  PERT  model) .  For  a  successful  bid, 
the  contractor  must  recognize  that  there  are  two  streams  of 
cash  flow:  an  '^outflow”^  caused  by  the  undertaking  of  the 
activities  of  the  project,  and  an  ^ inflow*^  due  to  income 
received  at  the  time  of  realization  of  pre-designated  ^key 
events"'^^  Under  the  PERT  model  of  activity  networks,  both 
streams  of  cash  flow  are  subject  to  uncertainty.  The  con¬ 
tractor's  problem  then  becomes  that  of  the  estimation  of 
these  two  streams  at  sufficient  confidence  to  realize  a  rea¬ 
sonable  profit  for  him. 

A  Monte  Carlo  simulation  is  developed  for  solution  of 
the  problem,  and  a  computer  package  has  been  constructed  to 
assist  project  managers  in  the  determination  of  the  bid 
package. 
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1.  INTRODUCTION 


The  process  of  bidding  for  the  contract  of  a  particular 
project  is  a  very  important  phase  in  the  life  of  that  proj¬ 
ect.  And  although  bidding  (and  its  precursor,  cost  estima¬ 
tion)  has  been  a  topic  of  research  for  decades,  it  has  been 
largely  overlooked  in  the  area  of  activity  networks  (ANs) . 
This  fact  seems  odd  since  from  the  very  beginnings  of  PERT 
(Program  Evaluation  and  Review  Technique) ,  the  Department  of 
Defense  has  demanded  the  use  of  the  PERT  model  of  the  proj¬ 
ect  in  any  proposal  submitted  to  it  [6].  If  the  contractor, 
in  his  proposal,  must  submit  a  network  detailing  the  method 
by  which  he  plans  to  complete  the  project,  then  it  would 
make  sense  that  he  use  that  information  in  the  preparation 
of  his  bid  on  the  project.  Presently,  for  both  the  contrac¬ 
tor  and  the  owner  of  a  project,  project  bids  are  typically 
determined  on  the  basis  of  'averages'  based  on  past  perfor¬ 
mance.  As  a  consequence,  a  project  that  represents  a  novel 
undertaking  in  either  its  technological  content  or  in  its 
scope  poses  a  dilemma  to  both  sides,  with  the  blind  leading 
the  blind  in  the  ensuing  negotiations.  And  yet,  it  is  pre¬ 
cisely  these  unique  features  that  gave  rise  to  the  concept 
of  'project  management'  in  the  first  place!  [7]. 


Clearly  this  method  fails  to  use  the  information  pro¬ 
vided  in  the  network  model  of  the  project.  The  reason  for 
this  discrepancy,  however,  does  not  lie  in  the  hands  of  the 


project  manager.  The  research  in  the  theory  of  ANs  (specif¬ 
ically,  directed  acyclic  networks) ,  since  their  inception  in 
1959,  has  been  mainly  directed  in  the  following  areas  [5]: 
1)  optimal  project  "compression”,  2)  optimal  planning  and 
acquisition  of  resources,  3)  optimal  scheduling  under  con¬ 
strained  availability  of  scarce  resources,  and  4)  analysis 
and  synthesis  of  projects  under  conditions  of  uncertainty. 
Of  these  four  areas,  only  the  first  has  dealt  with  cost  con¬ 
siderations,  and  then  only  in  the  deterministic  case.  So  we 
see  the  theory  has  not  yet  evolved  sufficiently  to  be  suc¬ 
cessfully  applied  to  the  area  of  project  bidding. 

The  literature  of  activity  networks  has  long  recognized 
the  need  to  somehow  account  for  the  cost  incurred  due  to  the 
activities.  In  1971,  Kleindorfer  [10]  discussed  three  money 
flow  problems  due  to  an  activity:  1)  Flows  that  accrue  at 
the  start  or  end  of  an  activity,  2)  Time-varying  flows  that 
accrue  during  the  execution  of  an  activity,  and  3)  Time- 
varying  flows  that  begin  at  the  start  or  end  of  an  activity 
and  continue  thereafter.  These  cost  considerations,  howev¬ 
er,  have  mainly  manifested  themselves  in  cost  control  [5] 
rather  than  in  determining  a  project  bid  prior  to  the  incep¬ 
tion  of  the  project.  There  have  been  few  instances  in  which 
an  attempt  has  been  made  to  utilize  AN  theory  to  determine 
that  bid. 

In  1972,  Case  [2],  in  a  paper  titled  "On  the  Considera¬ 
tion  of  Variability  in  Cost  Estimating",  made  an  attempt  to 


2 


determine  a  cost  distribution  by  using  a  three  estimate  ap¬ 
proach  to  estimate  activity  cost  similar  to  a  PERT  estimate 
of  activity  duration.  Then  the  project  cost  is  the  sum  of 
these  activity  cost  random  variables  (which  by  appealing  to 
the  Central  Limit  Theorem  is  appoximately  normally  distrib¬ 
uted)  ,  from  which  a  mean  and  variance  of  project  cost  could 
be  determined  and  various  probabilistic  statements  could  be 
made.  Unfortunately,  this  simplistic  method  falls  far  short 
of  providing  any  realistic  help  in  dealing  with  the  problem 
at  hand.  In  1974,  in  a  paper  titled  "Interrelating  Project 
Estimates  to  CPM  Schedules",  Badger  [1]  discussed  a  method 
of  cross  referencing  estimate  accounts  to  network  activities 
to  provide  compatibility  between  the  two  project  control 
documents.  The  approach  goes  into  detail  on  the  allocation 
of  the  project  resources  to  the  specific  activities  that 
require  them.  This  appears  to  be  the  first  place  in  the 
literature  that  directly  uses  the  project  network  when  mak¬ 
ing  project  estimates.  The  remaining  literature  effectively 
ignores  the  relationship  between  the  project  network  and 
project  bidding. 

It  is  obvious  that  the  process  of  infusing  the  theory 
of  activity  networks  into  the  formulation  of  a  project  bid 
has  not  been  adequately  addressed  to  this  date,  especially 
in  the  case  of  PERT  networks. 
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When  faced  with  preparing  a  bid  to  submit  to  the  owner 
of  a  project,  the  contractor  must  analyze  the  project  to 
determine  how  he  will  complete  the  project.  Included  in 
this  analysis  is  the  formulation  of  a  project  network  and 
the  determination  of  the  resources  (and  consequently  costs) 
that  are  required  to  complete  it.  The  contractor  will  often 
define  various  key  events  in  the  project  at  which  he  will 
require  the  owner  to  make  partial  payments  for  work  that  has 
been  completed,  and  often  requires  an  initial  payment  before 
the  work  on  the  project  begins. 

Farid  and  Boyer  [8]  indicate  that  the  bid  that  results 
should  be  the  total  cost  of  the  project  multiplied  by  a 
"fair  and  reasonable  markup"  (FaRM)  of  the  project  cost. 
The  FaRM  is  viewed  as  the  smallest  markup  which  satisfies 
the  Required-Rate-of-Return  (RRR)  of  the  contractor  for  the 
particular  project  at  hand.  A  FaRM  of  a  project,  given  a 
RRR,  can  be  obtained  via  AN  theory  by  analyzing  the  two 
streams  of  cash  flow  inherent  in  any  project.  These  streams 
are:  1)  "outflow":  payments  made  by  the  contractor  in  ex¬ 
ecuting  the  project,  and  2)  "inflow";  receipts  from  the 
owner  of  the  project  at  various  key  events  (i.e.,  those 
events  at  which  payments  are  made  to  the  contractor) .  In 
the  case  where  all  activities  in  the  network  can  be  modeled 
deterministically  (in  duration  and  cost),  there  is  no  prob¬ 
lem  in  defining  the  cost  of  an  activity,  and  subsequently 


the  cost  of  the  project.  The  two  streams  of  cash  flow  can 
then  be  easily  obtained  given  a  particular  schedule  of  the 
network  activities,  and  a  FaRM  determined.  An  illustration 
of  this  process  is  presented  in  section  3. 

Russell  [13]  has  formulated  a  mathematical  program  to 
determine  the  schedule  of  activities  that  maximizes  the  net 
present  value  of  a  deterministic  network  given  cash  flows 
and  resource  restrictions.  Several  heuristics  were  compared 
for  solution  of  the  nonlinear  program.  The  contractor  will 
then  have  an  optimal  schedule  by  which  he  performs  the  ac¬ 
tivities  of  the  project. 

Unfortunately,  when  we  are  dealing  with  PERT-type  sto¬ 
chastic  networks  (characterized  by  activity  durations  and 
costs  that  are  both  probabilistic)  ,  the  realization  time  of 
a  key  event  as  well  as  the  costs  of  the  activities  leading 
to  the  realization  of  the  key  event  can  only  be  determined 
in  a  probabilistic  sense.  At  this  point,  the  manager  of  the 
project  must  make  a  decision  on  the  amount  of  risk  he  wants 
to  take  in  the  process  of  setting  a  delivery  date  and  the 
cost  of  the  subgraph  of  the  key  event.  Further  complicating 
the  issue  of  obtaining  a  FaRM  in  PERT  networks  is  the  prob¬ 
lem  of  scheduling  the  activities  necessary  to  calculate  the 
stream  of  cash  "outflow”. 


When  these  problems  are  adequately  addressed  in  the 
case  of  a  PERT  network,  we  will  have  a  logical  and  theoreti¬ 
cally  sound  method  of  determining  a  bid  package  for  projects 


that  can  be  modeled  as  directed  acyclic  networks.  This 
method  would  appear  to  be  superior  to  methods  that  are  pres¬ 
ently  used  to  determine  bids  in  industry.  Whether  it  will 
be  practical  in  real-life  situations  has  yet  to  be  deter¬ 
mined. 

Purpose  of  Research 

The  purpose  of  this  research  is  to  address  the  problem 
of  determining  a  bid  package  —  i.e.,  the  payment  amounts 
and  dates,  for  projects  that  can  be  modeled  by  a  directed 
acyclic  network. 
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3.  A  DETERMINISTIC  EXAMPLE 

The  simplest  form  of  the  bidding  problem  in  the  context 
of  ANs  lies  in  the  deterministic  (CPM)  model.  This  model  is 
a  first  step  to  solving  the  more  general  probabilistic  mod¬ 
el.  In  this  case,  it  is  easy  to  determine  the  two  streams 
of  cash  flow,  and  consequently  calculate  the  FaRM  given  a 
RRR.  The  following  example  will  introduce  some  necessary 
concepts  of  the  bidding  problem,  which  will  then  be  general¬ 
ized  to  the  probabilistic  model  that  is  the  main  concern  of 
this  thesis. 

Assume  it  is  desired  to  bid  on  a  project  that  is  mod¬ 
eled  with  the  data  in  Table  1  and  the  network  in  Figure  1. 


Table  1.  Activity  Durations  and  Costs  for  CPM  Example. 


Activity 

Duration 

Cost/day 

Fixed  Cost 

1. 

Excavate 

2 

100 

500 

2. 

Foundation 

4 

300 

1000 

3. 

Rough  wall 

10 

250 

1000 

4. 

Rough  ext.  plumbing 

4 

150 

200 

5. 

Roof 

6 

250 

1000 

6. 

Rough  interior  plumbing 

5 

150 

200 

7. 

Rough  electrical  work 

7 

100 

200 

8. 

Exterior  siding 

7 

75 

200 

9. 

— dummy — 

0 

0 

0 

10. 

Exterior  painting 

9 

40 

50 

11. 

Wall  board 

8 

40 

25 

12. 

Interior  painting 

5 

40 

50 

13. 

Flooring 

4 

75 

100 

14. 

— dummy — 

0 

0 

0 

15. 

Exterior  fixtures 

2 

200 

100 

16. 

Interior  fixtures 

6 

100 

300 

7 


Table  2.  Bar  Chart  and  Cash  "Outflow"  for  CPM  Example. 


Act  Dur 


1  2 

2  4 

3  10 

4  4 

5  6 

6  5 

7  7 

8  7 

9  0 

10  9 
11  8 

12  5 

13  4 

14  0 

15  2 

16  6 
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The  key  events  of  the  project  have  been  pre-determined 
to  be  4,  10,  and  13,  and  for  this  example  assume  that  all 
activities  are  scheduled  to  begin  at  their  earliest  start 
times.  (The  implications  of  activity  float  in  the  determi¬ 
nistic  model  of  this  problem  will  be  discussed  near  the  end 
of  the  example)  .  The  bar  chart  in  Table  2  shows  when  each 
activity  is  scheduled  to  be  performed,  as  well  as  the  cost 
incurred  per  period  (assume  a  'period'  length  of  5  'units'; 
e.g.,  a  period  represents  a  week  of  5  days).  Note  that  in 
this  deterministic  example,  the  activity  schedule  is  very 
well  defined.  The  cost  incurred  in  a  period  is  calculated 
by  adding  the  fixed  costs  of  activities  that  begin  in  the 
period  plus  the  cost/day  of  the  activities  performed  in  the 
period  times  the  number  of  days  that  they  are  performed  in 
that  period.  To  illustrate,  the  calculations  for  the  cash 

"outflow"  in  periods  1  and  7  are  shown. 
period  1 


activity 

fixed  cost 

cost/day 

#  days 

total  cost 

1 

500 

100 

2 

700 

2 

1000 

300 

3 

1900 

cost 

incurred 

in  period 

1  =  2600 

period  7 

activity 

fixed  cost 

cost/day 

#  days 

total  cost 

10 

... 

40 

5 

200 

11 

— 

40 

3 

120 

12 

50 

40 

2 

130 

13 

100 

75 

2 

250 

cost 

incurred 

in  period 

7  =  700 

10 


V 

V 


I 


v‘ 

s' 

V 

V 


To  calculate  the  cash  "inflow"  of  the  project,  we  must 
determine  two  elements:  (i)  the  cost  associated  with  the 
subgraph  of  each  key  event,  which  is  then  multiplied  by  some 
•markup'  to  obtain  the  cash  "inflow",  and  (ii)  the  time  of 
realization  of  the  key  event.  The  cost  of  the  subgraph  to 
the  key  event  is  the  sum  of  the  costs  of  the  activities  in 
the  subgraph.  These  calculations  are  displayed  below  and 
summarized  in  Table  3. 


key  event  4 


activity 

fixed  cost 

cost/day 

#  days 

total  cost 

1 

500 

100 

2 

700 

2 

1000 

300 

4 

2200 

3 

1000 

250 

10 

3500 

cost 

of  subgraph 

=  6400 

kev  event  10 

activity 

fixed  cost 

cost/day 

#  days 

total  cost 

4 

200 

150 

4 

800 

5 

1000 

250 

6 

2500 

8 

200 

75 

7 

725 

9 

0 

0 

0 

0 

10 

50 

40 

9 

410 

cost 

of  subgraph 

=  4435 

kev  event  13 

activity 

fixed  cost 

cost/day 

#  days 

total  cost 

6 

200 

150 

5 

950 

7 

200 

100 

7 

900 

11 

25 

40 

8 

345 

12 

50 

40 

5 

250 

13 

100 

75 

4 

400 

14 

0 

0 

0 

0 

15 

100 

200 

2 

500 

16 

300 

100 

6 

900 

cost 

of  subgraph 

=  4245 

11 
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Table  3.  Cost  of  Subgraphs  and  Realization  Times  for  CPM 
Example. 


Key  event  cost  of  subgraph  realization  time 


4 

6400 

16 

10 

4435 

38 

13 

4245 

44 

Table  4  displays  the  cash  flows  for  the  project  given  a 
zero  markup  of  cost  for  the  cash  "inflow”. 

Table  4;  Cash  Flows  for  CPM  Example  (assuming  a  zero  cost 
markup,  and  the  percentage  of  the  project  cost 
that  we  reqiiire  at  the  beginning  of  the  project 
is  0%) . 


Period 

1  1  1  2  1  3 

1  4 

1  5  1  6 

1  7  1  8  1  9| 

"outflow" 

|260012300|1250| 

|3650| 

21751  6151 

700|1390|  4001 

"inflow" 

till 

1  64001 

1  1 

|4435|4245| 

Now,  given  this  information,  we  should  be  able  to  cal¬ 
culate  the  FaRM  for  this  project  for  a  given  RRR.  For  the 
sake  of  this  example,  let  RRR=20%,  initial  capital=$500 , 
interest  rate  on  money  deposited=10% ,  interest  rate  on  money 
borrowed=15% ,  and  the  retention  percentage=12% .  Then  if  we 
perform  the  required  calculations  of  simple  financial  man¬ 
agement  (i.e.  paying  the  cash  "outflow",  receiving  the  cash 
"inflow",  depositing  money  at  an  interest  rate,  and  borrow¬ 
ing  money  at  an  interest  rate  when  applicable) ,  we  obtain  a 
FaRM=1.2051.  The  pertinent  results  of  the  calculations  are 
displayed  in  table  5  where  it  is  assumed  that  the  cash  "out- 
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flow”  is  incurred  at  the  beginning  of  the  period  and  the 
cash  "inflow”  occurs  at  the  end  of  the  period  (e.g.,  the 
cash  "outflow”  in  period  5  and  the  cash  "inflow”  in  period  4 
occur  simultaneously  in  the  calculations  at  the  beginning  of 
period  5)  This  would  indicate  that  we  make  a  bid  of 
$18,247.22  in  this  project  which  has  a  cost  of  $15,141.17. 

The  progress  payments  can  be  easily  determined  using 
the  FaRM  and  the  cost  of  the  subgraphs.  These  progress  pay¬ 
ments  are  $7721.80,  $5371.18,  $5153.65,  respectively. 

Table  5.  FaRM  Calculations  for  Deterministic  Example 


FaRM  (Activity  Worth  /  Activity  Cost  )  =  1.2051 


Period 

* 

Interest 

*  * ** 

Cash  Balance 

Retention 

Cum  Ret. 

0 

500.00 

— 

— 

1 

(4.02) 

-2104.02 

0.00 

0.00 

2 

(8.45) 

-4415.62 

0.00 

0.00 

3 

(10.86) 

-5679.91 

0.00 

0.00 

4 

(17.91) 

-9362.82 

0.00 

0.00 

5 

(9.11) 

-4763.44 

926.65 

927.86 

6 

(10.32) 

-5392.97 

0.00 

929.07 

7 

(11.69) 

-7528.14 

0.00 

931.50 

9 

(6.14) 

-3211.87 

644.56 

1578.12 

10 

1.73 

1325.21 

618.46 

2199.45 

11 

1.73 

1326.94 

0.00 

2202.32 

Terminal  Cash  Position 


###  ^ 


Profit  = 


3529.26 

.200 


*Interest  on  money  borrowed  is  in  parenthesis. 

**Cash  balance  at  end  of  period. 

Amount  retained  at  beginning  of  period. 

^ ^Cumulative  retention  at  end  of  period. 
^^^Terminal  cash  =  cash  balance  +  cum. retention. 
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The  above  FaRM  was  obtained  assuming  that  all  activi¬ 
ties  begin  at  their  earliest  start  times.  Of  course,  in  the 
deterministic  model,  all  activities  that  are  not  contained 
in  the  critical  path  have  float.  Therein  lies  the  only  pos¬ 
sible  flexibility  in  the  bidding  strategy  for  the  determi¬ 
nistic  model.  Logic  dictates  that  the  contractor  would  want 
to  start  all  activities  as  late  as  possible  (thereby  delay¬ 
ing  his  disbursements)  without  causing  a  delay  in  the  reali¬ 
zation  times  of  the  key  events  (and  subsequently  delaying 
his  cash  "inflow");  see  Russell  [13]. 

Note  that  if  the  contractor  has  overhead  that  is  in¬ 
curred  from  the  beginning  to  the  end  of  the  project,  he  can 
simply  add  another  arc  in  the  network  from  the  start  node  to 
the  terminal  node  indicating  the  appropriate  cost/unit  time. 
This  process  of  adding  arcs  to  the  network  can  be  used  to 
model  costs  that  are  inherent  in  the  execution  of  any  proj¬ 
ect  (be  it  overhead  cost  or  otherwise) .  The  network  of  Fig¬ 
ure  2  illustrates  this  point.  If  we  add  an  arc  from  node  1 
to  node  13  with  a  duration  of  44,  a  fixed  cost  of  zero  and  a 
cost/day  of  25.00  for  administration  plus  35.00  for  overhead 
cost,  and  a  zero  duration  arc  from  node  13  to  node  14  to 
model  some  fixed  cost  of  500.00  incurred  at  the  conclusion 
of  the  project,  the  network  in  Figure  2  results.  Assuming 
the  same  values  for  capital,  RRR,  etc.,  one  obtains  a  FaRM= 
1.2055.  This  would  result  in  a  bid  of  $22,061.70  for  the 


project  that  has  a  cost  of  $18,300.79. 

This  deterministic  example  displays  the  cash  flow  con¬ 
cepts  involved  in  the  bidding  problem.  When  we  generalize 
this  model  to  include  activities  and  costs  that  are  prota- 
bilistic  in  nature,  we  introduce  complications  in  the  reali¬ 
zation  time  and  cost  of  subgraphs  of  key  events,  as  well  as 
in  determining  the  cash  "outflow"  of  the  project. 


4.  METHODOLOGY 


From  this  point  on,  when  referring  to  the  bidding  prob¬ 
lem,  we  assume  the  structure  of  the  AN  is  known.  From  a 
theoretical  point  of  view,  the  major  problem  is  the  determi¬ 
nation  of  the  appropriate  method  of  separation  of  cost  of 
activities  that  belong  to  more  than  one  key  event.  To  this 
end,  we  examine  the  subgraphs  of  the  various  key  events  of  a 
project.  Define  a  subgraph  of  a  node  in  a  network  as  the 
subnetwork  terminating  at  that  node.  If  we  define  S(i)  = 
{set  of  activities  belonging  to  the  subgraph  of  key  event 
i),  then  for  key  events  i  and  j,  either  (a)  S(i)  and  S(j) 
are  disjoint  (no  common  activities),  (b)  S(i)  is  a  subset  of 
S(j)  or  S(j)  is  a  subset  of  S(i),  or  (c)  S(i)  and  S(j)  over¬ 
lap  (i.e.  they  have  elements  in  coinmon,  but  neither  is  a 
subset  of  the  other) .  Figure  3  graphically  displays  these 
situations. 

4 . 1  Cost  Separation  of  Common  Activities 

When  S(i)  and  S(j),  for  all  i  ^  j,  are  disjoint,  the 
cost  of  each  activity  is  assigned  to  its  respective  key 
event. 

When  S(i)  is  a  subset  of  S(j),  the  cost  of  the  subgraph 
of  S(i)  is  assigned  to  key  event  i,  and  the  cost  of  the  re¬ 
maining  activities  is  assigned  to  key  event  j. 

If  S(i)  and  S(j)  overlap,  a  situation  exists  in  which 
an  activity  is  in  the  subgraph  of  more  than  one  key  event 


Since  activity  'a'  is  common  to  4  and  5,  we  must  either 
assign  the  cost  of  activity  'a'  to  one  of  the  key  events  or 
divide  its  cost,  attributing  a  percentage  of  its  cost  to 
each  key  event  in  such  a  manner  so  there  is  no  "double  cost¬ 
ing"  for  the  same  activity.  The  contractor  would  want  to 
receive  the  payment  for  common  activities  as  early  as  possi¬ 
ble,  thereby  maximizing  his  profit,  and  the  owner  would 
rather  pay  as  late  as  possible,  thus  minimizing  his  expense. 
We  wish  to  address  this  issue  objectively  and  obtain  a  logi¬ 
cal  and  consistent  method  of  separating  the  costs  of  the 
common  activities. 

There  are  many  heuristics  that  could  be  used  to  address 
this  problem.  The  following  are  just  a  few: 

Heuristic  1.  Separate  costs  based  on  the  probability 
of  the  earliest  realization  of  the  key  events. 

Heuristic  2.  Separate  costs  based  on  the  activity 
criticality  index  in  each  key  event  subnetwork. 

Heuristic  3.  Separate  costs  based  on  the  relative  cost 
of  the  subgraphs  of  the  key  events. 

Heuristic  4.  Separate  costs  based  on  the  criticality 
index  of  the  key  events  themselves. 

In  section  4.3  we  criticize  heuristics  2-4,  but  we 
first  develop  an  argument  supporting  heuristic  1.  Since  the 
key  event  that  is  realized  first  requires  the  common  activi¬ 
ties  to  be  completed  by  its  realization  time,  it  is  reason¬ 
able  to  assign  the  cost  of  the  common  activities  (or  a  large 


portion  of  it)  to  that  key  event.  In  mathematical  terms,  it 
seems  reasonable  to  attribute  a  greater  share  of  the  cost  cf 
common  activities  to  those  key  events  having  the  greatest 
probabilities  of  being  realized  first.  Note  that  in  a  deter¬ 
ministic  network,  this  would  translate  into  attributing  the 
entire  cost  of  common  activities  to  the  key  event  that  is 
realized  at  the  earliest  time. 

To  illustrate,  we  continue  the  analysis  of  the  network 
in  Figure  4.  The  subgraphs  of  key  events  4  and  5  are  shown 
in  Figure  5.  Assume  that  all  activity  durations  are  dis¬ 
tributed  as  a  Gamma  random  variable  with  parameters  (t=2, 
lambda*!).  Then,  the  realization  time  distributions,  means, 
and  variances  are  as  listed  in  Table  6.  The  calculations 
required  to  determine  the  distribution  functions  are  summar¬ 
ized  in  table  7. 


Figure  5;  Subgraphs  of  Key  Events  4  and  5 


Table  6: 

Parameters  of  key  events  4  and  5 

of  Figure  4. 

Node 

4 : 

^4  '  ’'a  '’b 

=  1  -  exp(-t)*(i  +  t  + 

2 

t  /2  + 

t^/6) 

Mean  =  4 

Variance  =  4 

Node 

5: 

Tc  =  max  {  Y  +  Y ,  ;  Y  +  Y 
^  a  d  b  e 

) 

F5(t)  =  1  -  2*exp(-t)*(l  +  t 

+  t^/2 

+  t^/6) 

+  exp(-2*t) * (1  +  t  + 

t^/2  + 

tVe)^ 

Mean  =  5.46 

Variance  =  4.17 

Table  7:  Realization  Time  Distribution  Calculations  for 
Example  Network 


Random 

Variable  Representation  Probability  Distribution  Function 


1-exp (-t) * ( 1-t) 

^b 

l-exp(-t) * (1-t) 

1-exp (-t) * (l+t+t^/2+t^/6) 

1-exp  (-t)  *  ( l  +  t+t^/2-t-t^/6) 

V^e 

1-exp  (-t)  *  ( l"'t-^t^/2+t^/6) 

max(W^,W2) 

l-2*exp(-t) * (l+t+t^/2+t^/6) 

+exp(-2*t) * (l+t+t^/2+t^/6) ^ 

The  probability  density  functions  of  the  node  realiza¬ 


tion  times  are  graphed  in  Figure  6. 


Figure  6:  Density  Functions  of  Key  Events  4  and  5 

If  we  let  denote  the  realization  time  of  key  event  4 
and  Yg  denote  the  realization  time  key  event  5,  then  from 
the  data  it  is  clear  that  Pr{Y^$Yg)  will  be  relatively  high 
(the  allocation  calculations  will  be  presented  in  section 
4.2).  Therefore,  we  will  allocate  a  greater  percentage  of 
the  cost  of  activity  'a'  to  key  event  4. 

In  general,  the  allocation  percentage  of  key  ev-»nt  i 
would  be  calculated  as  follows:  let  Y^^  denote  the  realiza¬ 
tion  time  of  key  event  i  (the  key  event  for  which  we  desire 
to  determine  the  cost  allocation  percentage) ,  and  Y^  denote 
the  realization  time  of  key  event  j,  for  jeH(i),  where  H(i) 
is  the  set  of  key  events  that  share  activities  with  key 
event  i,  and  let  N  denote  the  number  of  key  events  in  H(i). 
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Furthermore,  let  Aj  denote  the  event  [  ]  (i.e.  key 

event  i  is  realized  before  key  event  j),  for  jeH(i),  and  let 
Prop(i)  denote  the  proportion  of  the  cost  of  common  activi¬ 
ties  allocated  to  key  event  i.  Then, 

Prop(i)  =  Pr  {  }.  (1) 

This  yields  the  probability  that  key  event  i  is  realized 
first.  Unfortunately,  this  probability  statement  is  not 
immediately  amenable  to  solution  since  the  A^'s  are  not  in¬ 
dependent.  To  resolve  this,  we  assume  independence  of  the 
elements  in  H(i)  and  condition  on  the  random  variable  Y^. 
Let  Bj  denote  the  event  [  Yj  ^  y  ]  (i.e.  node  j  is  realized 

after  time  y)  ,  for  j£H(i).  Then  since  we  assume  that  the 

Yj's  are  independent, 

Prop(i)  Pr  {  ...,  Bjj  }  *  dFy(y)  (2) 

=J"  Pr{  B^  }*...*  Pr{  Bj^  }  *  dFyCy)  (3) 

Therefore,  when  we  know  the  forms  of  the  distribution 
functions  of  the  realization  times  of  the  key  events,  we  can 
use  the  above  equation  to  solve  for  the  cost  allocation  per¬ 
centages  . 


4 . 2  Method  of  Separating  Costs  of  Common  Activities 
The  algorithm  presented  next  is  based  on  the  above  ar¬ 
gument.  To  facilitate  the  computations,  we  make  the  follow¬ 
ing  assumptions:  1)  realization  times  of  key  events  are 

normally  distributed  (or  can  be  thus  approximated),  and  2) 
the  events  A^  can  be  considered  independent. 


The  computer  software  developed  uses  either  this  meth¬ 
od,  or  permits  the  user  to  assign  proportions  as  he  sees 


fit. 


Cost  Separation  Algorithm: 

1)  Denote  the  key  event  with  the  smallest  mean  by 
key  event  s,  then  determine  the  probability, p(i) , 
that  key  event  s  is  realized  before  key  event  i, 
for  i£H(s) . 

p(i)  =  Pr  {  Yg  ^  }  (4) 

- if  p(i)  is  greater  than  or  equal  to  0.9,  as¬ 
sign  a  proportion  of  zero  to  key  event  i. 

This  is  an  arbitrary  cut-off  point. 

2)  all  remaining  key  events  are  given  percentages 
as  follows: 

- let  w(i)  = 

=  Pr  {  ^  )  *...*  Pr{  ^  Yjj  }  (5) 

- then,  let  the  proportion  Prop(i)=w(i)/2^w(i) 

Applying  the  above  algorithm  to  the  example  network  in 
Figure  4  yields: 


p(5)  =  Pr  {  Y^  $  Yg  )  =  .695 
Therefore, 

w(4)  =  .695,  or  Prop(4)  =  .695, 
and  w(5)  =  .305,  or  Prop(5)  =  .305. 
Therefore,  we  allocate  69.5%  of  the  cost  of  activity  'a'  to 
key  event  4,  and  30.5%  of  the  cost  to  key  event  5. 

To  show  the  limiting  case  when  the  probability  of  real¬ 
izing  one  key  event  earlier  than  another  is  very  high,  let 
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the  network  in  Figure  4  be  modified  as  follows:  activity 

•c'  is  distributed  as  a  Gamma  (t=20,  lambda=l) .  The  resul¬ 
ting  distribution  param'^ters  are: 

node  4:  mean  =  22,  variance  =  22, 
and  node  5:  mean  =  5.46,  variance  =  4.17. 

The  cost  separation  algorithm  results  in  the  following; 
p(4)  =  Pr  {  Yg  ^  )  =  .999 

Therefore, 

Prop (4)  =  0.0,  and  Prop (5)  =  100.0 
The  algorithm  assigns  the  entire  cost  of  activity  'a' 
to  key  event  5,  as  intended. 

4 . 3  An  Alternative  Cost  Separation  Method 
Heuristic  2  suggests  an  alternate  method  of  cost  separ¬ 
ation  that  considers  the  importance  of  the  common  activities 
to  their  respective  key  events.  We  examine  it  here  to  dis¬ 
play  a  problem  that  it  shares  with  heuristics  3  and  4.  To 
illustrate,  consider  the  network  of  Figure  7.  Then  the  ac¬ 
tivities  that  are  common  to  key  events  4  and  5  are  'a',  'b', 
and  'd'.  The  criticality  index  of  an  activity  is  defined  as 
the  probability  that  the  activity  is  on  the  critical  path; 
see  Elmaghraby  [5],  p.  277.  Now,  if  we  define  the  impor¬ 
tance  of  the  activity  as  the  criticality  of  the  activity  in 
the  subgraph  of  the  key  event,  we  can  determ.ine  a  percentage 
to  assign  to  the  key  events. 
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Figure  7:  Network  Example  for  Alternative  Cost 
Separation  Method 


Figure  8  shows  the  key  event  subgraphs  and  the  approxi¬ 
mate  activity  criticality  indices  for  the  given  activity 
duration  distributions. 


Figure  8:  Subgraphs  of  Key  Events  4  and  5  of  Fig.  7 


Activity  'b'  has  a  criticality  index  of  .035  in  the 
subgraph  of  node  4,  and  .502  in  the  subgraph  of  node  5. 
This  gives  us  an  indication  of  the  relative  importance  of 
activity  'b'  to  its  key  events  from  which  we  can  determine  a 
percentage  of  the  cost  allocation.  Thus,  according  to  the 
logic  of  this  heuristic,  the  overwhelming  majority  of  the 
cost  of  activity  'b'  should  be  allocated  to  key  event  5. 

Although  this  method  of  separating  costs  is  intuitively 
appealing,  it  ignores  the  fact  that  the  total  activity  cost 
is  incurred  long  before  the  key  event,  to  which  we  have  at¬ 
tributed  a  majority  of  the  common  activity  cost,  is  real¬ 
ized.  The  network  in  Figure  7  illustrates  this  problem.  We 
expect  to  realize  node  4  before  time  20.1  with  probability 
.95,  and  expect  to  realize  node  5  after  time  23.1  with  prob¬ 
ability  .95.  Therefore,  the  total  cost  of  activity  'b*  is 
expected  to  be  expended  long  before  node  5  is  realized,  yet 
we  do  not  account  for  most  of  it  until  node  5  is  realized 
because  of  the  method  of  cost  allocation.  Clearly,  this  is 
not  in  the  best  interest  of  the  contractor  who  is  trying  to 
maintain  liquidity.  Also,  in  a  PERT  network,  determining 
the  criticality  index  of  an  activity,  or  even  approximating 
it,  is  a  difficult  problem;  see  Dodin  and  Elmaghraby  [4]. 

4 . 4  Distribu tions  Associated  Wi t h  Key  Events 

Before  a  bid  proposal  can  be  submitted,  the  contractor 


needs  to  know  how  much  he  is  going  to  bid  at  the  various  key 
events  and  the  dates  at  which  he  is  going  to  promise  deliv¬ 
ery  of  various  portions  of  the  project.  If  we  are  dealing 
with  a  deterministic  network  (in  both  duration  and  cost), 
there  is  no  ambiguity  as  to  either  of  these  quantities.  The 
completion  date  takes  on  a  value  that  has  probability  1,  as 
does  the  cost.  In  this  case,  then,  a  bid  can  be  prepared 
and  submitted  with  no  risk  to  the  contractor,  and  hence,  his 
profit  is  secure. 

More  realistically,  however,  one  cannot  assume  that  all 
quantities  in  the  model  are  deterministic.  We  must  assume 
that  activity  duration  is  only  defined  in  a  probabilistic 
sense  as  a  random  variable,  and  cost  is  some  function  of  the 
duration  (and  subsequently  a  random  variable  itself) ,  or  is 
conditional  on  the  observed  duration.  This  results  in  the 
realization  times  and  costs  at  key  events  being  defined  as 
random  variables. 

4.4.1  Realization  Time  Distribution 

In  a  given  project,  a  contractor  may  have  many  differ¬ 
ent  key  events  at  which  he  must  deliver  a  product,  or  a  por¬ 
tion  of  a  product,  to  the  owner  of  the  project.  The  con¬ 
tractor,  in  his  proposal,  will  give  target  dates  by  which  he 
must  deliver  these  products,  and  in  the  case  of  an  overrun 
he  will  assume  some  penalty  for  being  late.  Since  there  is 
most  likely  competition  for  the  project,  a  contractor  must 


submit  a  competitive  delivery  date  for  any  chance  of  getting 
the  contract.  If  this  is  the  case,  the  contractor  will  be 
assuming  a  risk  of  observing  realization  times  of  the  key 
events  beyond  those  at  which  he  promised  delivery.  To  clar¬ 
ify  this,  the  contractor's  bid  options  include  two  extreme 
strategies:  1)  Very  conservative  —  in  this  case,  he  will 
bid  a  long  duration  and  correspondingly  high  cost  which  may 
well  result  in  not  receiving  the  contract  and  therefore  mak¬ 
ing  no  money,  and  2)  Very  optimistic,  in  which  case  he  will 
bid  an  early  completion  time  and  corresponding  low  cost  re¬ 
sulting  in  high  probability  of  not  fulfilling  his  promises, 
and  consequently  he  will  have  heavy  penalties  and  make  no 
money  eitherl  Because  of  this  environment,  it  is  essential 
that  he  have  accurate  information  on  the  distribution  of 
realization  time  in  order  to  properly  assess  his  risk. 

The  problem  of  determining  the  pdf  of  the  realization 
time  of  a  node  in  a  directed  acyclic  network  has  been  one  of 
the  main  areas  of  work  in  the  area  of  activity  networks 
since  the  very  beginnings  of  the  PERT  model.  Elmaghraby  [6] 
discusses  various  methods  of  determining  the  pdf  of  a  node 
(key  event)  in  the  PERT  model,  which  include  analytical  ap¬ 
proaches,  approximations,  bounding  approaches,  and  Monte 
Carlo  sampling.  Once  the  pdf  is  determined  by  any  one  of 
these  methods,  the  contractor  can  estimate  the  risk  he  is 
taking  when  giving  a  delivery  date. 

Notice  that  if  we  determine  the  realization  time  dis- 
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tributions  of  different  key  events  in  the  network  that  have 
conunon  activities,  the  resulting  random  variables  are  not 
independent.  Because  of  this,  at  least  in  theory,  when  we 
are  determining  delivery  dates  for  these  dependent  key 
events,  we  should  consider  them  simultaneouly .  In  practice, 
however,  when  approximating  the  realization  time  distribu¬ 
tions  of  these  nodes,  we  normally  assume  independence  of 
paths  to  each  node.  Under  this  assumption,  the  resulting 
realization  time  distributions  are  independent.  Consequent¬ 
ly,  we  can  consider  the  delivery  dates  independently  from 
each  other. 

4.4.2  Cost  Distribution 

Similarly,  when  a  competitive  bid  is  submitted,  the 
contractor  will  assume  a  risk  that  the  actual  realization  of 
the  network  cost  is  greater  than  his  bid,  thus  incurring  a 
loss.  For  this  reason,  it  is  essential  also  that  a  pdf  of 
cost  for  the  subgraph  of  a  key  event  be  determined.  We  now 
address  the  problem  of  determining  the  cost  of  an  activity, 
and  subsequently  will  examine  the  cost  of  a  subgraph  of  a 
key  event. 

4. 4. 2.1  Activity  Cost 

As  was  mentioned  previously,  there  are  different  costs 
that  can  be  incurred  due  to  an  activity.  In  this  thesis,  we 
will  consider  only  the  following  two  costs:  1)  Fixed  cost 
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incurred  at  the  inception  of  the  activity,  and  2)  Variable 
cost  incurred  during  the  execution  of  the  activity  that  is 
either  a  function  of  the  activity  duration  or  is  a  random 
variable  whose  pdf  is  conditional  upon  the  activity  dura¬ 
tion.  If  the  cost  is  a  function  of  the  duration  (e.g.,  a 
linear  function  in  the  form  of  Cost  =  a  +  (b  *  duration)  ) , 
then  it  is  fairly  straightforward  to  determine  the  pdf  of 
the  cost  of  the  activity.  But  if  the  cost  is  a  random  vari¬ 
able  that  is  conditional  upon  the  actual  activity  duration, 
then  to  determine  the  cost  pdf  of  the  activity  we  must  ap¬ 
peal  to  basic  probability  theory.  Let  C  denote  the  cost  of 
the  activity,  and  Y  denote  its  duration.  Then  we  have  the 
following  relationship  on  the  joint  density  of  cost  and  du¬ 
ration,  the  conditional  density  of  cost  given  duration,  and 
the  unconditional  density  on  duration: 

f(^|Y(C/y)  =  (6) 
To  determine  the  unconditional  cost  density  we  must  inte¬ 
grate  the  joint  density  with  respect  to  duration.  The  fol¬ 
lowing  example  will  illustrate  this  procedure,  along  with 
the  difficulties  associated  with  it. 

Let  the  duration  be  distributed  exponentially  with  mean 
10  (fy(Y)=  1/10  *  exp(-y/10)  ),  and  cost,  conditional  on  the 
activity  duration,  be  distributed  exponentially  with  mean 
100*duration  (f^|Y(c,y)  =  l/100*y  *  exp (-c/100*y )  ).  Then 
the  unconditional  distribution  of  cost  is: 

f‘°l/1000Y  *  exp{  -y/10-c/100*y  )  dy 


(7) 


Clearly,  this  is  not  easy  to  evaluate.  With  many  distribu¬ 
tions,  the  unconditional  distribution  of  cost  could  not  be 
evaluated  analytically. 

4. 4. 2. 2  Cost  of  Subgraphs 

The  cost  of  the  subgraph  of  a  key  event  is  the  sum  of 
the  costs  of  the  individual  activities  of  the  subgraph.  If 
we  assume  that  the  costs  of  activities  are  independent  (al¬ 
though  in  actuality  this  may  not  necessarily  be  the  case)  , 
then  the  distribution  function  of  the  cost  of  the  subgraph 
will  be  the  convolution  of  the  individual  activity  cost  dis¬ 
tribution  functions.  This  does  not  pose  any  theoretical 
problems,  but  an  analytical  solution  for  a  given  network 
poses  definite  computational  problems.  This  is  due  to  the 
fact  that  only  in  very  rare  cases  will  the  pdf's  of  the 
costs  of  individual  activities  be  amenable  to  mathematical 
manipulation  (e.g.,  normal,  in  which  case  the  convolution  is 
easily  determined  since  the  sum  of  normal  r.v.'s  is  itself 
normal) .  More  likely  is  the  case  where  we  need  to  sum  ran¬ 
dom  variables  that  assume  different  pdf's.  An  analytical 
solution  would  involve  multiple  integration,  which  is  a  for¬ 
midable  computational  problem. 

To  bypass  this  difficulty  in  analytically  determining 
the  cost  pdf's,  we  can  appeal  to  approximating  the  cost  dis¬ 
tribution  by  the  following  methods:  1) Central  Limit  Theo¬ 
rem,  and  2)  Monte  Carlo  Sampling. 
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By  the  Central  Limit  Theorem,  we  know  that,  subject  to 
mild  assumptions,  as  the  number  of  activities  in  the  sub¬ 
graph  of  a  key  event  goes  to  infinity,  the  cost  distribution 
of  the  key  event  may  be  approximated  by  the  normal  distribu¬ 
tion  with  mean  =  2^  mean(i)  and  variance  =  2^  var(i).  Un¬ 
fortunately,  we  know  that  the  number  of  activities  in  the 
subgraph  of  a  key  event  is  oftentimes  not  very  large,  and 
hence  the  application  of  the  Central  Limit  Theorem  can  re¬ 
sult  in  erroneous  probability  statements  (remember  that  de¬ 
termining  the  cost  distributions  of  the  key  events  is  some¬ 
thing  we  want  to  do  as  accurately  as  possible,  especially  in 
the  context  of  project  bidding  where  poor  approximation  of 
the  cost  distribution  can  lead  to  a  large  monetary  loss) . 

If  we  are  unwilling  to  apply  the  Central  Limit  Theorem, 
we  can  approximate  the  cost  pdf  by  Monte  Carlo  sampling. 
This  method  is  straightforward  population  sampling  and  has 
some  distinct  advantages.  First,  the  individual  cost  densi¬ 
ties  need  not  be  determined,  which,  as  was  stated  earlier, 
can  be  a  difficult  task.  The  only  knowledge  of  the  cost 
density  necessary  is  the  form  relative  to  the  duration  of 
the  activity  (e.g.,  a  linear  function  of  duration,  a  normal 
distribution  about  a  constant  times  the  duration,  etc.). 
Another  advantage  of  Monte  Carlo  sampling  is  that  when  ap¬ 
proximating  the  cost  distribution  we  can  guarantee  that  our 
approximate  cost  distribution  is  within  a  certain  tolerance 
level  from  the  true  distribution  (see  sample  size  discus- 


sion) .  Monte  Carlo  sampling  will  be  discussed  further  in 
section  5. 

4. 4. 2. 3  Dependency  of  Cost  Random  Variables 
As  discussed  previously,  in  the  cases  of  (i)  either 
S(i)  or  S(j)  is  a  subset  of  the  other,  and  (ii)  S(i)  and 
S(j)  are  disjoint,  the  cost  of  activities  are  unambiguously 
assigned  to  their  respective  key  events.  But  when  S(i)  and 
S(j)  partially  overlap  (neither  is  a  subset  of  the  other), 
difficulties  arise  in  allocating  the  cost  of  the  common  ac¬ 
tivities  to  the  key  events.  That  problem  was  resolved  by 
partitioning  the  cost  of  the  common  activities.  Unfortu¬ 
nately,  the  act  of  dividing  the  cost  of  a  common  activity 
and  assigning  percentages  of  the  cost  to  different  key 
events  results  in  cost  allocations  that  are  not  independent 
r.v.'s.  To  illustrate  this  point,  we  use  the  network  in 
Figure  4  with  durations  Gamma  distributed  with  t=2 , 

lambda=l.  As  was  previously  discussed,  the  cost  of  activity 

'a'  is  allocated  to  the  two  key  events  4  and  5.  The  resul¬ 

ting  cost  values  are; 

node  4:  C(4)  =  prop (4)  *  cost (a)  +  cost(c)  (8) 

node  5:  C(5)  =  prop(5)  *  cost(a)  +  cost(b)  (9) 

+  cost{d)  +  cost(e) 

where  prop(i)  =  proportion  of  the  cost  of  activity  'a' 

assigned  to  node  i, 

C(i)  =  cost  of  key  event  i,  and 
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cost(i)  =  cost  of  activity  i. 

It  is  then  clear  that  the  costs  at  nodes  4  and  5  are  not 
independent  because  both  r.v. 's  include  the  cost  of  activity 

•a' . 

Because  of  this  fact,  when  we  have  determined  the  cost 
pdf's  of  the  key  events  under  specific  allocation  strategies 
and  are  deciding  what  the  bid  should  be  at  each  key  event, 
we  should  not  consider  the  key  events  independently  of  each 
other.  We  can  define  the  joint  cumulative  probability  dis¬ 
tribution  by: 

F(cl,...,cn)  =  Pr{  C(l) <cl, . . . ,C(n) <cn  }  (10) 
The  marginal  distribution  of  the  cost  at  a  key  event  can 
then  be  shown  [12]  to  be: 

F(ci)  =  Pr  {  C(l)^  . ,C(i)<ci, . . . ,C(n)^  ®  )  (11) 
Given  this  marginal  distribution,  we  can  determine  a  bid  at 
one  key  event  independently  from  the  costs  at  other  key 
events.  Theoretically,  this  is  a  straightforward  applica¬ 
tion  of  elementary  probability  theory.  The  application  of 
this  theory,  though,  is  difficult  to  carry  out  because  of 
its  computational  complexity. 

Fortunately,  in  practice,  it  would  be  consistent  to 
assume  that  the  cost  r.v.'s  can  be  treated  as  independent 
r.v. 's,  as  was  done  in  the  approximation  of  the  realization 
times  of  the  key  events. 
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4 . 5  Determanation  of  Cash  Flow 

When  confronted  with  a  potential  project,  the  contrac¬ 
tor  must  know  if  he  will  maintain  liquidity  throughout  the 
project.  To  this  end,  we  need  to  determine  the  expected 
cash  "outflow”  for  the  duration  of  the  project.  When  activ¬ 
ity  duration  and  cost  are  defined  as  random  variables,  the 
problem  of  scheduling  activities  becomes  very  complex,  and 
therefore  determining  the  expected  disbursements  for  the 
duration  of  the  project  is  also  complex.  There  are  two 
methods  to  which  we  can  resort  in  solving  this  problem,  both 
of  which  require  extensive  computing  effort.  These  methods 
are:  1)  Monte  Carlo  simulation,  and  2)  analytical  approach. 
Monte  Carlo  simulation  is  a  straightforward  method  of  deter¬ 
mining  the  expected  costs  incurred  in  given  intervals  over 
many  realizations  of  the  network.  This  will  be  discussed  in 
section  5. 

The  analytical  approach  to  solving  this  problem,  al¬ 
though  conceptually  fairly  simple,  is  no  trivial  exercise. 
It  is  outlined  here  to  display  the  difficulty  associated  in 
determining  the  exact  expected  cash  "outflow". 

Denote  the  start  time  of  activity  'i'  by  ST^ ,  and  let 
E[C(m,i)]  denote  the  expected  cost  incurred  in  period  'm' 
due  to  activity  'i'.  Clearly,  E[C(m,i)]  is  dependent  on 
three  elements:  the  df  of  the  cost  of  the  activity  as  a 


function  of  its  duration,  the  start  time  of  the  activity, 
and  the  probability  that  it  is  'in  progress'  in  period  'm'. 


The  total  expected  disbursement  in  period  'm'  could  then  be 
the  sum  of  the  individual  expected  costs;  the  sum  extending 
over  all  activities  that  may  be  in  progress  in  period  'm'. 

It  is  evident  that  the  determination  of  E[C(m,i)]  is  no 
minor  feat,  even  when  using  the  approximation  method  of  Do- 
din  [3]  to  determine  the  df  of  ST^.  Consequently,  the  ana¬ 
lytical  determination  of  the  expected  cash  "outflow"  was 
abandoned,  and  attention  was  diverted  to  the  use  of  MCS 


methods . 


The  procedure  adopted  in  solving  the  bidding  problem  is 
Monte  Carlo  simulation  (MCS) .  The  main  reason  for  the  adop¬ 
tion  of  this  approach  is  to  allow  the  calculation  of  the 
cash  "outflow”  discussed  in  the  previous  section.  As  Elma- 
ghraby  states  [5],  "whenever  analytical  approaches  fail,  or 
appear  to  overwhelm  one's  capacity  to  obtain  numerical  an¬ 
swers,  one  turns  to  population  sampling  and  statistical 
techniques."  Also,  since  the  application  of  ANs  to  the  bid¬ 
ding  of  a  project  for  PERT  networks  has  never  been  addressed 
before,  MCS  seems  to  be  a  logical  first  step  in  the  solution 
of  the  problem. 

The  MCS  technique  generates  a  duration  for  each  arc  in 
the  network  from  its  distribution,  and  then  calculates  the 
realization  times  for  the  key  events  in  the  network.  This 
is  considered  one  sample.  The  result  over  many  of  these 
samples  is  a  realization  time  distribution  for  each  key 
event  in  the  network.  In  addition,  for  the  bidding  problem, 
we  must  generate  a  cost  for  each  activity  according  to  its 
distribution  (thus  resulting  in  a  cost  distribution  over 
many  samples)  ,  as  well  as  calculate  the  cash  "outflow"  in 
each  period  for  each  sample  (resulting  in  an  expected  cash 
"outflow"  over  many  samples) ,  and  calculate  the  cash  "in¬ 
flow"  in  each  period  for  each  sample  (resulting  in  an  expec¬ 
ted  cash  "inflow"  over  many  samples) . 

There  are  two  theoretical  concerns  involved  with  MCS: 


1)  size  of  the  sample  to  guarantee  a  pre-assigned  confi¬ 
dence,  and  2)  Use  of  variance-reduction  techniques  to  in¬ 
crease  precision  (or  minimize  sample  size) .  A  discussion  of 
sample  size  follows.  The  use  of  variance-reduction  tech¬ 
niques  is  discussed  by  Elmaghraby  [5]  and  [6],  and  will  not 
be  addressed  in  this  thesis. 

Sample  Size 

The  main  objective  of  the  bidding  problem  is  the  deter¬ 
mination  of  the  distribution  functions  of  realization  times 
and  costs  of  the  key  events  in  the  network.  If  we  use  MCS 
to  determine  these  df's,  we  have  to  make  the  sample  size 
sufficient  to  estimate  them  with  a  given  precision.  This 
sample  size  can  be  determined  by  means  of  the  Kolmogor- 
ov-Smirnov  statistic  as  discussed  by  Elmaghraby  [5]  and  tab¬ 
ulated  by  Hoel  [9]  and  Massey  [11]  for  limited  values  of 
sample  size  and  confidence.  For  completeness,  these  con¬ 
cepts  are  discussed  next. 

If  we  assume  the  true  distribution  function,  is 

continuous,  we  can  make  statements  concerning  the  greatest 

absolute  difference  between  the  sample  distribution  function 

and  the  true  distribution  function.  Let  G  „.(t)  denote  the 

nK 

sample  df  derived  from  a  sample  of  size  K,  and 
D^j^=sup^|Gj^j^(t) -F^(t)  I .  Then  the  probability  that  is 

less  than  a  specified  d/>/  k”  is  asymptotically  given  by 

limj^_^  Pr{  (-1)  ^*exp(-2*i2*d2)  (14) 

The  values  of  d  for  different  confidence  levels  have  been 
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tabulated  by  Smirnov  [14]  and  the  asymptotic  probability  of 

>/~K*’*D  ^<d  can  then  be  obtained.  As  an  example,  suppose  we 
riK 

wish  to  estimate  F  by  G  ^  such  that  the  maximum  deviation 

n  nK 

between  the  two  functions  does  not  exceed  0.01  in  absolute 
value  more  than  5%  of  the  time.  For  the  asymptotic  proba¬ 
bility  PriV  K  *D^j^<d}  =  .95,  we  have  d=1.36.  Since  D^j^=.01, 
we  solve  for  >/~K  *0.01^1.36  to  obtain  K  ^  18,496. 

Of  course,  in  the  bidding  problem,  we  are  concerned 
with  estimating  many  df's  simultaneously.  This  does  not, 
however,  introduce  any  complications  even  though  some  of  the 
random  variables  whose  df's  we  are  estimating  are  not  inde¬ 
pendent  (specifically,  cost  and  duration  at  key  events) . 
This  is  because,  for  each  df  we  are  estimating,  the  samples 
are  independent  and  identically  distributed.  Therefore,  we 
can  estimate  all  of  the  df's  simultaneously  using  the  sample 
size  determined  above,  and  we  can  be  confident  that  our  Mon¬ 
te  Carlo  approximations  to  the  distribution  functions  are 
accurate  enough  to  make  statements  on  the  realization  times 
and  costs  of  key  events. 


6.  COMPUTER  PROGRAM 


Software  has  been  developed,  written  in  Microsoft  FOR- 
TRAN77,  that  allows  the  user  to  interactively  determine  a 
bid  for  a  project  that  can  be  modeled  by  a  directed  acyclic 
network.  The  program  listings  are  in  the  appendix,  and  an 
example  will  be  presented  section  6.4. 


6 . 1  Program  Explanation 


The  computer  software  developed  is  divided  into  three 


main  programs:  ANC-IN,  AN-COST,  and  CASH,  and  an  optional 

program  DODITRNS. 


Program  ANC-IN  prepares  the  data  necessary  for  the  Mon¬ 
te  Carlo  simulation.  It  also  has  the  capability  to  randomly 
generate  an  AN  if  desired  for  research  purposes.  This  pro¬ 
gram  is  a  modification  of  the  input  program  used  by  Dodin 
[3]  to  approximate  the  realization  time  distributions  of 
nofies  in  a  directed  acyclic  network.  This  provides  the  ca¬ 
pability  to  use  Dodin 's  program  using  the  same  data  file, 
which  allows  comparison  of  the  Monte  Carlo-generated  reali¬ 
zation  time  distributions  and  the  approximate  distributions 
provided  by  Dodin. 


Program  DODITRNS,  written  by  Dodin  [3],  calculates  the 
means  and  standard  deviations  of  the  key  events  which  are 
required  by  program  AN-COST  for  use  in  the  sharing  of  costs 
of  common  activities  as  well  as  in  determining  the  endpoints 
of  the  empirical  distributions.  The  means  and  standard  de- 


viations  are  then  placed  in  a  data  file  which  is  read  by 
program  AN-COST.  If  these  values  are  available  from  another 
source,  they  can  simply  be  placed  in  the  data  file  and 
DODITRNS  need  not  be  run. 

Program  AN-COST  actually  performs  the  Monte  Carlo  simu¬ 
lation  to  determine  the  realization  time  distributions  and 
cost  distributions  of  the  key  events,  the  expected  cash  "in¬ 
flow",  and  the  expected  cash  "outflow".  To  do  this,  it  de¬ 
termines  the  cost  separation  percentages  of  the  common  ac¬ 
tivities  and  calculates  the  required  sample  size  before  the 
simulation  begins.  The  results  of  the  run  are  sent  to  var¬ 
ious  data  files  for  perusal. 

Program  CASH  allows  cash  flow  calculations  to  be  per¬ 
formed,  as  well  as  allowing  the  user  to  view  the  results  of 
the  Monte  Carlo  simulation.  It  reads  a  data  file  created  by 
AN-COST,  and  interactively  assists  the  user  in  determining  a 
bid  package. 


6.2  Program  Assumptions 

The  following  assumptions  were  made  in  implementing  the 


computer  program. 


General:  1)  Directed  acyclic  networks  only. 

2)  The  network  has  at  most  100  activities 

3)  The  network  has  at  most  50  nodes  (this  is  a 
limitation  of  DODlTRNS(see  6,  below),  not  of 
AN-COST) . 

4)  Maximum  project  duration  is  100  periods. 

5)  All  activities  begin  at  their  earliest  start 
times . 

6)  The  means  and  std.  dev.s  of  the  key  nodes  are 
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known  prior  to  running  program  AN-COST.  (If 
these  parameters  are  not  known,  they  can  be  ob¬ 
tained  by  running  program  DODITRNS.) 

Duration:  — Activity  duration  is  distributed  as  one  of  the 
following: 


1)  Uniform 

2)  Triangular 

3)  Normal 

4)  Exponential 

5)  Gamma 

6)  Beta 

7)  Discrete  (user  defined  as  ordered  pairs) 


Cost:  Activity  cost  consists  of  a  fixed  cost  assessed  at  the 
start  of  the  activity,  and  a  cost  that  is  either  a 
linear  function  of  the  duration  or  a  cost  that  follows 
a  density  conditional  on  the  realized  duration.  The 
following  cost  functions  are  available: 


1)  Constant  *  Duration 

2)  Normal  (mean=constant*duration,  var.=given) 
(see  discussion,  below) 

3)  Uniform  (the  endpoints  of  the  uniform  dist. 

are  [constant*duration-given  val., 
constant*duration+given  val.]) 
(see  discussion,  below) 

4)  Triangular  (mode=constant*duration,  min=mode- 

given,  max=mode+given) 

(see  discussion,  below) 


Cost  functions  2,  3,  and  4  are  illustrated  in  Figure 
10.  For  a  normal  cost  function,  the  mean  is  a  user-speci¬ 
fied  constant  times  the  activity  duration,  and  the  variance 
is  a  user-specified  constant. 

For  a  uniform  cost  function,  the  endpoints  of  the  dis¬ 
tribution  are  a  user-specified  constant,  kl,  times  the  ac¬ 
tivity  duration  minus  another  user-specified  value,  k2 ,  and 
kl  times  the  activity  duration  plus  another  user-specified 
value,  k3.  Therefore,  the  distribution  does  not  have  to  be 
symmetric  about  kl  *  duration. 
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a)  normal  cost  distribution 


a=kl*duration-k2 

b=kl*duration+k3 


For  a  triangular  cost  function,  the  mode  of  the  distri¬ 
bution  is  a  user-specified  value,  kl,  times  the  activity 
duration.  The  minimum  is  the  mode  minus  another  user-speci¬ 
fied  value,  k2,  and  the  maximum  is  the  mode  plus  another 
user-specified  value,  k3 .  Again,  the  distribution  is  not 
necessarily  symmetric. 


6.3  Program  Usage 

To  use  the  programs  to  make  bid  packages,  the  following 
steps  must  be  taken: 


1)  Create  a  data  file  containing  the  duration  and  cost 
information  of  the  network.  This  can  be  done  using 
program  ANC-IN.  This  program  is  an  alteration  of 
the  input  program  for  program  DODINl,  which 
determines  the  PDF  of  realization  time  of  nodes  in 
a  network.  The  data  is  put  in  the  file  in  such  a 
manner  that  DODINl  can  be  run  using  the  same  data 
file. 

2)  Put  the  means  and  standard  deviations  of  the  key 
events  in  a  data  file  named  TRNS.ANC  in  increasing 
order  of  node  number.  If  the  means  and  std.  dev.s 
are  not  known  a  priori,  a  run  of  program  DODITRNS 
will  determine  them  and  place  them  in  the  data 
file.  Program  DODITRNS,  which  can  be  used  to  do 
all  the  calculations  of  DODINl  with  the  exception 
of  generation  of  a  network  and  MCS,  is  a  skeleton 
version  of  DODINl. 

3)  Run  program  AN-COST.  This  program  performs  the 
MCS  to  determine  realization  time  distributions  and 
cost  distributions  of  the  key  events  of  the 
network.  This  program  also  calculates  the  expected 
cash  "inflow”  and  "outflow"  for  each  period  in  the 
network.  The  cash  flow  data  is  sent  to  file 
CASHFLOW.DAT,  which  is  used  in  program  CASH  to 
perform  cash  flow  calculations. 

4)  Run  program  CASH  if  cash  flow  calculations  are 


dssir'ed.  Prograin  CASH  will  allow  the  user  to  view 
the  data  from  the  MCS,  determine  a  FaRM  in 
deterainistic  problems,  and  determine  the  expected 
profit  in  a  probabilistic  problem.  It  allows  view¬ 
ing  of  the  distribution  functions,  and  determines 
the  percentiles  of  the  distributions  as  an  aid  in 
making  decisions  on  the  bids  at  the  key  events. 


6.4  Example 

Consider  the  network  previously  used  in  Figure  1,  re¬ 
produced  in  Figure  10  for  convenience.  For  this  example, 
let  the  activities  durations  be  normally  distributed  and  the 
costs  be  linear  functions  of  the  durations  with  the  parame¬ 
ters  listed  in  Table  8.  Then  running  program  ANC-IN  will 
yield  the  input  data  file  listed  in  Table  9. 


Table  8.  Activity  Distribution  Parameters  for  Example 
Problem 


Duration 

Std.  Dev. 


Activity 


Mean 


Cost 

Cost/day  Fixed  Cost 


Table  9.  Input  Data  File  for  Example  Problem. 


Anodes  #arcs  #kev  events 

.500  13  16  30  1  0  0  3  0 

key  events 
4  10  13 

start  node _ end  node _ duration  dist. _ ^durations/ 


distribution 

oarameters 

1  2 
. 2000E+01 

3  0 

.5000E+00 

.5000E+00 

. 3500E+01 

2  3 

.4000E+01 

3  0 

.lOOOE+01 

.2000E+01 

. 6000E+01 

3  4 

. lOOOE+02 

3  0 

.2000E+01 

.5000E+01 

.1500E+02 

4  5 

. 4000E+01 

3  0 

. lOOOE+01 

.2000E+01 

.6000E+01 

4  6 

. 6000E+01 

3  0 

. 1500E+01 

.3000E+01 

.9000E+01 

5  7 

. 5000E+01 

3  0 

. 1500E+01 

.2000E+01 

.8000E+01 

4  7 

.7000E+01 

3  0 

. lOOOE+01 

.5000E+01 

.9000E+01 

6  8 
.7000E+01 

3  0 

. lOOOE+01 

.5000E+01 

.9000E+01 

5  8 

.OOOOE+00 

8  10 
.9000E+01 

7  1 

.lOOOE+01 

3  0 

.2000E+01 

.5000E+01 

. 1300E+02 

7  9 

.8000E+01 

3  0 

. 1500E+01 

.5000E+01 

.llOOE+02 

9  12 

. 5000E+01 

3  0 

.2000E+01 

. lOOOE+01 

.9000E+01 

9  11 

.4000E+01 

3  0 

. lOOOE+01 

.2000E+01 

. 6000E+01 

11  12 
.OOOOE+OO 

10  13 

. 2000E+01 

7  1 

.  l'OOOE+01 

3  0 

. 5000E+00 

. lOOOE+01 

. 3000E+01 

12  13 

. 6000E+01 

3  0 

. 1500E+01 

. 3000E+01 

.9000E+01 

Numbers  not  labeled  are  used  only  by  program  DODITRNS  in 
the  determination  of  the  mean  and  standard  deviation  of 
the  key  events  (for  more  info,  see  Dodin  [3]). 

if  it 

See  program  listing  for  more  details. 


Table  9  (Continued) 


it 

cost  distribution/ 


fixed  cost 

variable 

cost  distribution  oarameters 

1 

.5000E+03 

1 

. lOOOE+03 

.OOOOE+00 

• OOOOE+OO 

. OOOOE+OO 

. lOOOE+04 

1 

. 3000E+03 

.OOOOE+00 

• OOOOE+OO 

•OOOOE+OO 

.lOOOE+04 

1 

.2500E+03 

.OOOOE+00 

• OOOOE+OO 

. OOOOE+OO 

.2000E+03 

1 

. 1500E+03 

•OOOOE+OO 

• OOOOE+OO 

. OOOOE+OO 

. lOOOE+04 

1 

.2500E+03 

.OOOOE+00 

• OOOOE+OO 

. OOOOE+OO 

.2000E+03 

1 

. 1500E+03 

•OOOOE+OO 

• OOOOE+OO 

. OOOOE+OO 

.2000E+03 

1 

. lOOOE+03 

•OOOOE+OO 

• OOOOE+OO 

. OOOOE+OO 

.2000E+03 

1 

.7500E+02 

•OOOOE+OO 

• OOOOE+OO 

• OOOOE+OO 

.OOOOE+00 

1 

. OOOOE+00 

. OOOOE+OO 

• OOOOE+OO 

. OOOOE+OO 

.5000E+02 

1 

.4000E+02 

•OOOOE+OO 

•  OOOOE+OO 

• OOOOE+OO 

.2500E+02 

1 

.4000E+02 

•OOOOE+OO 

•  OOOOE+OO 

. OOOOE+OO 

.5000E+02 

1 

.4000E+02 

•OOOOE+OO 

•OOOOE+OO 

.  OOOOE+OO 

. lOOOE+03 

1 

.7500E+02 

•OOOOE+OO 

• OOOOE+OO 

.  OOOOE+OO 

. OOOOE+00 

1 

. OOOOE+00 

• OOOOE+OO 

• OOOOE+OO 

•  OOOOE+OO 

. lOOOE+03 

1 

. 2000E+03 

• OOOOE+OO 

• OOOOE+OO 

• OOOOE+OO 

. 3000E+03 

. lOOOE+03 

• OOOOE+OO 

• OOOOE+OO 

•OOOOE+OO 

* 

See  program  lasting  for  more  details. 


If  the  means  and  standard  deviations  of  the  key  events 
are  not  known,  we  next  run  program  DODITRNS,  which  will 
place  them  in  data  file  TRNS.ANC.  Table  10  displays  the 
file  for  this  network. 

Table  10:  File  TRNS.ANC  for  Example  Problem 
Key  Event  Mean  Std.  Dev. 

4  .1600E+02  .2290E+01 
10  .3800E+02  .3530E+01 
13  .4400E+02  .6000E+01 

The  MCS,  performed  by  program  AN-COST,  using  a  sample 
size  of  18,496  (this  sample  size  guarantees  a  tolerance  of 
no  more  than  .01  with  a  confidence  of  95%)  yields  the  output 
files  shown  in  Tables  11,  12,  13,  and  14.  Table  11  contains 
the  distribution  information  of  duration  of  the  key  events 
as  well  as  the  criticality  indices  of  the  activities.  Table 
12  contains  the  distribution  infojrmation  of  cost  of  the  key 
events  and  total  project  cost.  Table  13  displays  a  data 
file  produced  with  some  general  information  used  by  the  sim¬ 
ulation,  and  table  14  lists  the  data  file  CASHFLOW.DAT,  pro¬ 
duced  by  AN-COST  for  use  by  program  CASH. 


Table  11,  Empirical  Distributions  of  Durations  and  Activity 
Criticality  Indices. 


-  KEY  EVENT  4 


Pr 

{ 

X 

<-  10  )  - 

.0000 

Pr 

{ 

10.000<  X  <* 

10.550)  = 

.0006 

Pr 

{ 

10.550<  X  <= 

11.100)  = 

.0019 

Pr 

{ 

11.100<  X  <= 

11.650)  = 

.0042 

Pr 

{ 

11.650<  X  <= 

12.200)  = 

.  0098 

Pr 

{ 

12.200<  X  <= 

12.750)  = 

.  0167 

Pr 

{ 

12.750<  X  <* 

13.300)  = 

.0305 

Pr 

{ 

13.300<  X  <= 

13.850)  = 

.0481 

Pr 

{ 

13.850<  X  <= 

14.400)  = 

.0735 

Pr 

{ 

14.400<  X  <= 

14.950)  = 

.0917 

Pr 

{ 

14.950<  X  <= 

15.500)  = 

.1140 

Pr 

{ 

15.500<  X  <= 

16.050)  = 

.1169 

Pr 

{ 

16.050<  X  <= 

16.600)  = 

.1224 

Pr 

{ 

16.600<  X  <= 

17.150)  = 

.  1105 

Pr 

{ 

17.150<  X  <= 

17.700)  = 

.0902 

Pr 

{ 

17.700<  X  <= 

18.250)  = 

.0670 

Pr 

{ 

18.250<  X  <= 

18.800)  = 

.  0444 

Pr 

{ 

18.800<  X  <= 

19.350)  = 

.0268 

Pr 

{ 

19.350<  X  <= 

19.900)  »= 

.0149 

Pr 

{ 

19.900<  X  <= 

20.450)  * 

.0092 

Pr 

{ 

20.450<  X  <* 

21.000)  * 

.0044 

Pr 

{ 

X 

>  21  )  = 

.0022 

Pr 

{ 

X 

<=  10.000 

) 

=  .0000 

Pr 

{ 

X 

<=  10.550 

) 

=  .0006 

Pr 

{ 

X 

<=  11.100 

} 

=  .0025 

Pr 

{ 

X 

<=  11.650 

> 

=  .0068 

Pr 

{ 

X 

<=  12.200 

) 

=  .0165 

Pr 

{ 

X 

<=  12.750 

) 

=  .0333 

Pr 

{ 

X 

<=  13.300 

) 

=  .0638 

Pr 

{ 

X 

<=  13.850 

} 

=  .1119 

Pr 

{ 

X 

<=  14.400 

) 

=  .1853 

Pr 

{ 

X 

<=  14.950 

) 

*  .2770 

Pr 

{ 

X 

<=  15.500 

) 

=  .3911 

Pr 

{ 

X 

<=  16.050 

) 

=  .5080 

Pr 

{ 

X 

<=  16.600 

) 

=  .6304 

Pr 

{ 

X 

<=  17.150 

) 

*  .7409 

Pr 

{ 

X 

<=  17.700 

) 

=  .8311 

Pr 

{ 

X 

<=  18.250 

} 

*  .8981 

Pr 

{ 

X 

<>=  18.800 

) 

*  .9425 

Pr 

< 

X 

<*  19.350 

) 

=  .9693 

Pr 

{ 

X 

<-  19.900 

) 

=  .9842 

Pr 

{ 

X 

<=  20,450 

) 

=  .9934 

Pr 

{ 

X 

<=  21.000 

) 

«  .9978 

Table  11  (Continued) 


THE  MEAN  OF  THE  DIST.  =  16.0044 
THE  VARIANCE  OF  THE  DIST.  =  3. 
THE  STD.  DEV.  OF  THE  DIST.  =  1 


1521 

.7754 


1 

Table  11 

(Continued) 

1 

-  KEY  EVENT 

10  - 

Pr 

{ 

X  <=  29  )  * 

.0000 

Pr 

{ 

29.000<  X  <= 

29.850)  = 

.0009  3 

Pr 

( 

29.850<  X  <= 

30.700)  = 

.0020  ^ 

Pr 

{ 

30.700<  X  <= 

31.550)  = 

.0045  M 

Pr 

{ 

31.550<  X  <= 

32.400)  = 

.0106 

Pr 

{ 

32.400<  X  <= 

33.250)  = 

.0203 

Pr 

( 

33.250<  X  <= 

34.100}  = 

.0362 

Pr 

{ 

34.100<  X  <= 

34.950)  = 

.0527  -^1 

Pr 

{ 

34.950<  X  <= 

35.800}  = 

.0831  ^ 

Pr 

{ 

35.800<  X  <= 

36.650}  = 

.0955  fm 

Pr 

{ 

36.650<  X  <= 

37.500}  = 

.1159 

Pr 

( 

37.500<  X  <= 

38.350)  = 

.1269  I'lM 

Pr 

{ 

38.350<  X  <= 

39.200}  = 

.1213  kj 

Pr 

{ 

39.200<  X  <= 

40.050)  = 

.1027  ^ 

Pr 

{ 

40.050<  X  <= 

40.900)  = 

.0865  ^ 

Pr 

{ 

40.900<  X  <= 

41.750)  = 

.0602  M 

Pr 

{ 

41.750<  X  <= 

42.600}  = 

.0377  ^ 

Pr 

( 

42.600<  X  <= 

43.450)  = 

.0203 

Pr 

{ 

43.450<  X  <= 

44.300)  = 

.0122 

Pr 

{ 

44.300<  X  <= 

45.150)  = 

.0061  /M 

Pr 

{ 

45.150<  X  <= 

46.000)  * 

.0025  ^ 

Pr 

{ 

X  >  46  )  *= 

.0019 

n 

Pr 

{ 

X  <=  29.000 

) 

=  .0000 

Pr 

{ 

X  <=  29.850 

} 

=  .0009 

Pr 

{ 

X  <=  30.700 

) 

=  .0029 

Pr 

{ 

X  <=  31.550 

) 

=  .0074 

Pr 

( 

X  <=  32.400 

} 

=  .0180 

■1 

Pr 

{ 

X  <=  33.250 

) 

=  .0383 

Pr 

{ 

X  <=  34.100 

) 

=  .0746 

Pr 

{ 

X  <=  34.950 

} 

=  .1272 

■yl 

Pr 

{ 

X  <=  35.800 

) 

=  .2103 

Pr 

{ 

X  <=  36.650 

} 

=  .3058 

Pr 

{ 

X  <=  37.500 

} 

=  .4218 

Pr 

{ 

X  <=  38.350 

) 

=  .5487 

Pr 

{ 

X  <=  39.200 

} 

=  .6700 

Pr 

{ 

X  <=  40.050 

) 

=  .7727 

Pr 

{ 

X  <=  40.900 

} 

=  .8592 

Pr 

{ 

X  <=  41.750 

) 

=  .9193 

Pr 

{ 

X  <=  42.600 

) 

=  .9570 

Pr 

{ 

X  <=  43.450 

) 

=  .9773 

Pr 

{ 

X  <=  44.300 

) 

=  .9895 

Pr 

{ 

X  <=  45.150 

) 

=  .9956 

•  » 

Pr 

{ 

X  <=  46.000 

) 

=  .9981 

1 

55 

% 

Table  11  (Continued) 


THE  MEAN  OF  THE  DIST.  =  38.0164 
THE  VARIANCE  OF  THE  DIST.  =  7. 
THE  STD.  DEV.  OF  THE  DIST.  =  2 


2432 

.6913 


Table  11  (Continued) 


-  KEY  EVENT  13 


Pr 

{ 

X 

<=  35  }  = 

.  0002 

Pr 

{ 

35.000<  X  <= 

35.850)  = 

.  0007 

Pr 

{ 

35.850<  X  <= 

36.700)  = 

.0014 

Pr 

{ 

36.700<  X  <= 

37.550)  = 

.  0044 

Pr 

{ 

37.550<  X  <= 

38.400)  = 

.0087 

Pr 

{ 

38.400<  X  <= 

39.250)  = 

.  0167 

Pr 

{ 

39.250<  X  <= 

40.100)  = 

.  0301 

Pr 

{ 

40.100<  X  <= 

40.950)  = 

.0465 

Pr 

{ 

40.950<  X  <= 

41.800)  = 

.  0675 

Pr 

{ 

41.800<  X  <= 

42.650)  = 

.  0866 

Pr 

{ 

42.650<  X  <= 

43.500)  = 

.1090 

Pr 

{ 

43.500<  X  <= 

44.350)  = 

.  1165 

Pr 

{ 

44.350<  X  <= 

45.200)  = 

.1171 

Pr 

{ 

45.200<  X  <= 

46.050)  = 

.1043 

Pr 

{ 

46.050<  X  <= 

46.900)  = 

.0926 

Pr 

{ 

46.900<  X  <= 

47.750)  = 

.0680 

Pr 

{ 

47.750<  X  <= 

48.600)  = 

.0512 

Pr 

{ 

48.600<  X  <= 

49.450)  = 

.  0338 

Pr 

{ 

49.450<  X  <= 

50.300)  = 

.  0195 

Pr 

{ 

50.300<  X  <= 

51.150)  = 

.  0128 

Pr 

{ 

51.150<  X  <= 

52.000)  = 

.  0064 

Pr 

{ 

X 

>  52  )  = 

.0061 

Pr 

{ 

X 

<=  35.000 

} 

=  .0002 

Pr 

{ 

X 

<=  35.850 

} 

=  .0009 

Pr 

{ 

X 

<=  36.700 

} 

=  .0023 

Pr 

{ 

X 

<=  37.550 

) 

=  .0067 

Pr 

{ 

X 

<=  38.400 

) 

*  .0154 

Pr 

{ 

X 

<=  39.250 

) 

»  .0321 

Pr 

{ 

X 

<=  40.100 

) 

=  .0622 

Pr 

{ 

X 

<*  40.950 

) 

=  .1087 

Pr 

{ 

X 

<*  41.800 

} 

=  .1761 

Pr 

{ 

X 

<=  42.650 

} 

=  .2627 

Pr 

{ 

X 

<=  43.500 

) 

=  .3717 

Pr 

( 

X 

<»  44.350 

) 

=  .4882 

Pr 

{ 

X 

<-  45.200 

} 

-  .6053 

Pr 

{ 

X 

<=  46.050 

) 

=  .7096 

Pr 

{ 

X 

<=  46.900 

} 

=  .8022 

Pr 

{ 

X 

<-  47.750 

) 

»  .8702 

Pr 

{ 

X 

<*  48.600 

) 

*  .9214 

Pr 

{ 

X 

<=  49.450 

} 

*  .9552 

Pr 

< 

X 

<“  50.300 

) 

-  .9748 

Pr 

{ 

X 

<=  51.150 

) 

*  .9875 

Pr 

1 

X 

<=  52.000 

) 

*  .9939 

57 
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Table  11  (Continued) 


THE  MEAN  OF  THE  DIST. 


THE  VARIANCE  OF  THE  DIST. 


THE  STD.  DEV.  OF  THE  DIST.  = 


44.4840 


8.3119 


2.8830 


v'_  .V.N.  .  \ 


Table  12.  Empirical  Distributions  of  Costs 


-  PROJECT  COST  - 

Pr  (  X  <=13273  }  =  .0003 

Pr  {13273. 000<  X  <=13459.900}  =  .0032 

Pr  (13459. 900<  X  <=13646.800}  =  .0050 

Pr  {13646. 800<  X  <=13833.700}  =  .0094 

Pr  {13833. 700<  X  <=14020.600}  =  .0192 

Pr  {14020. 600<  X  <=14207.500}  =  .0297 

Pr  {14207. 500<  X  <=14394.400}  =  .0487 

Pr  {14394. 400<  X  <=14581.300}  =  .0667 

Pr  {14581. 300<  X  <=14768.200}  =  .0930 

Pr  {14768. 200<  X  <=14955.100}  =  .1055 

Pr  {14955. 100<  X  <=15142.000}  =  .1170 

Pr  {15142. 000<  X  <=15328.900}  =  .1174 

Pr  {15328. 900<  X  <=15515.800}  =  .1066 

Pr  {15515. 800<  X  <=15702.700}  =  .0922 

Pr  {15702. 700<  X  <=15889.600}  =  .0663 

Pr  {15889. 600<  X  <=16076.500}  =  .0522 

Pr  {16076. 500<  X  <=16263.400}  =  .0317 

Pr  {16263. 400<  X  <=16450.300}  =  .0174 

Pr  {16450. 300<  X  <=16637.200}  =  .0104 

Pr  {16637. 200<  X  <=16824.100}  =  .0048 

Pr  {16824. 100<  X  <=17011.000}  =  .u018 


Pr  {  X  >  17011  }  =  .0015 

Pr  {  X  <=  13273.000  }  =  .0003 
Pr  {  X  <=  13459.900  }  =  .0035 
Pr  {  X  <=  13646.800  }  =  .0085 
Pr  {  X  <=  13833.700  }  =  .0179 
Pr  {  X  <=  14020.600  }  =  .0371 
Pr  {  X  <=  14207.500  }  =  .0668 
Pr  {  X  <=  14394.400  }  =  .1155 
Pr  {  X  <=  14581.300  }  =  .1821 
Pr  {  X  <=  14768.200  )  =  .2751 
Pr  {  X  <=  14955.100  }  =  .3806 
Pr  {  X  <=  15142.000  }  =  .4976 
Pr  {  X  <=  15328.900  }  =  .6150 
Pr  {  X  <=  15515.800  )  =  .7216 
Pr  {  X  <=  15702.700  )  =  .8139 
Pr  {  X  <=  15889.600  }  =  .8802 
Pr  {  X  <=  16076.500  }  =  .9324 
Pr  {  X  <=  16263.400  }  =  .9641 
Pr  {  X  <=  16450.300  )  =  .9815 
Pr  {  X  <=  16637.200  }  =  .9919 
Pr  {  X  <=  16824.100  }  =  .9966 
Pr  {  X  <=  17011.000  )  =  .9985 


Table  12  (Continued) 


THE  MEAN  OF  THE  DIST.  =  15145.6822 

THE  VARIANCE  OF  THE  DIST.  =  390349.5940 

THE  STD.  DEV.  OF  THE  DIST.  =  624.7796 


Table  12  (Continued) 


-  KEY  EVENT  4 


Pr  {  X  <=  5070  }  = 
Pr  (  5070. 000<  X  <= 
Pr  {  5203. 800<  X  <= 
Pr  {  5337. 600<  X  <= 
Pr  {  5471. 400<  X  <= 
Pr  {  5605. 200<  X  <= 
Pr  {  5739. 000<  X  <= 
Pr  {  5872. 800<  X  <= 
Pr  {  6006. 600<  X  <= 
Pr  {  6140. 400<  X  <= 
Pr  {  6274. 200<  X  <= 
Pr  {  6408. 000<  X  <= 
Pr  (  6541. 800<  X  <= 


.0004 

5203.800}  -  .0024 

5337.600)  =  .0048 

5471.400)  =  .0097 

5605.200)  =  .0192 

5739.000)  =  .0298 

5872.800)  =  .0504 

6006.600}  =  .0679 

6140.400)  =  .0922 

6274.200)  =  .1080 

6408.000}  =  .1163 

6541.800)  =  .1181 

6675.600)  =  .1069 


Pr  {  6675. 600<  X  <= 
Pr  {  6809. 400<  X  <= 
Pr  {  6943. 200<  X  <= 
Pr  {  7077. 000<  X  <= 
Pr  (  7210. 800<  X  <= 
Pr  {  7344. 600<  X  <= 
Pr  {  7478. 400<  X  <= 
Pr  {  7612. 200<  X  <= 
Pr  {  X  >  7746  }  = 

Pr  {  X  <=  5070.000 
Pr  {  X  <=  5203.800 
Pr  {  X  <=  5337.600 
Pr  {  X  <=  5471.400 
Pr  {  X  <=  5605.200 
Pr  {  X  <=  5739.000 
Pr  {  X  <=  5872.800 
Pr  {  X  <=  6006.600 
Pr  {  X  <=  6140.400 
Pr  {  X  <=  6274.200 
Pr  (  X  <=  6408.000 
Pr  {  X  <=  6541.800 
Pr  {  X  <=  6675.600 
Pr  {  X  <=  6809.400 
Pr  {  X  <=  6943.200 
Pr  {  X  <=  7077.000 
Pr  {  X  <=  7210.800 
Pr  {  X  <=  7344.600 
Pr  {  X  <=  7478.400 
Pr  {  X  <=  7612.200 
Pr  {  X  <=  7746.000 


6809.400)  =  .0914 

6943.200)  =  .0684 

7077.000}  =  .0475 

7210.800)  =  .0293 

7344.600)  =  .0187 

7478.400}  =  .0103 

7612.200}  =  .0049 

7746.000)  *  .0020 

.0014 

)  =  .0004 

)  =  .0028 

)  =  .0075 

)  =  .0172 

)  =  .0364 

)  =  .0663 

)  =  .1167 

)  =  .1846 

)  =  .2768 

)  =  .3848 

)  =  .5011 

}  =  .6192 

)  =  .7262 

)  =  .8176 

)  =  .8860 

)  =  .9335 

)  =  .9628 

}  =  .9815 

)  =  .9918 

}  =  .9966 

)  =  .9986 


Table  12  (Continued) 


THE  MEAN  OF  THE  DIST.  = 


6407.0008 


THE  VARIANCE  OF  THE  DIST.  =  198487.0996 


THE  STD.  DEV.  OF  THE  DIST.  = 


445.5189 


. 


.  -  ->  .*•  .*• 


Table  12  (Continued) 


-  KEY  EVENT  10 


Pr  {  X  <=  3448  }  = 
Pr  {  3448. 000<  X  <= 
Pr  {  3548. 800<  X  <= 
Pr  {  3649. 600<  X  <= 
Pr  {  3750. 400<  X  <= 
Pr  {  3851. 200<  X  <= 
Pr  {  3952. 000<  X  <= 
Pr  {  4052. 800<  X  <= 
Pr  {  4153. 600<  X  <= 
Pr  {  4254. 400<  X  <= 
Pr  {  4355. 200<  X  <= 
Pr  {  4456. 000<  X  <= 
Pr  {  4556. 800<  X  <= 
Pr  (  4657. 600<  X  <= 
Pr  {  4758. 400<  X  <= 
Pr  {  4859. 200<  X  <= 
Pr  (  4960. 000<  X  <= 
Pr  {  5060. 800<  X  <= 
Pr  {  5161. 600<  X  <= 
Pr  {  5262. 400<  X  <= 
Pr  {  5363. 200<  X  <= 
Pr  {  X  >  5464  }  = 


.0001 

3548.800}  =  .0011 

3649.600)  =  .0037 

3750.400)  =  .0094 

3851.200)  =  .0187 

3952.000)  =  .0325 

4052.800}  =  .0497 

4153.600}  =  .0704 

4254.400}  =  .0925 

4355.200)  =  .1031 

4456.000)  =  .1180 

4556.800)  =  .1114 

4657.600)  =  .1076 

4758.400)  =  .0902 

4859.200)  =  .0712 

4960.000)  =  .0526 

5060.800)  =  .0323 

5161.600}  =  .0201 

5262.400)  =  .0091 

5363.200)  =  .0043 

5464.000)  =  .0015 

.0003 


Pr  {  X  <= 
Pr  {  X  <= 
Pr  {  X  <= 
Pr  {  X  <= 
Pr  {  X  <= 
Pr  {  X  <= 
Pr  {  X  <= 
Pr  {  X  <= 
Pr  {  X  <= 
Pr  {  X  <= 
Pr  {  X  <= 
Pr  (  X  <= 
Pr  {  X  <= 
Pr  (  X  <= 
Pr  (  X  <= 
Pr  {  X  <= 
Pr  {  X  <= 
Pr  (  X  <= 
Pr  {  X  <= 
Pr  {  X  <= 
Pr  (  X  <= 


3448.000  ) 

3548.800  ) 

3649.600  ) 

3750.400  ) 

3851.200  ) 
3952.000  ) 

4052.800  } 

4153.600  ) 

4254.400  } 

4355.200  ) 
4456.000  ) 

4556.800  ) 

4657.600  ) 

4758.400  ) 

4859.200  ) 
4960.000  ) 

5060.800  ) 

5161.600  ) 

5262.400  ) 

5363.200  ) 
5464.000  ) 


.0001 
.0012 
.  0049 
.0143 
.0330 
.0655 
.1152 
.1856 
.2781 
.3812 
.4992 
.6107 
.7183 
.8085 
.8796 
.9323 
.9646 
.9847 
.9938 
.9982 
.9997 
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Table  12  (Continued) 

THE  MEAN  OF  THE  DIST.  =  4458,9100 

THE  VARIANCE  OF  THE  DIST.  =  110690.6299 


THE  STD.  DEV.  OF  THE  DIST 


332.7020 


Table  12  (Continued) 


-  KEY  EVENT  13 


Pr 

{ 

X  <=  3464 

} 

= 

.0002 

Pr 

{ 

3464. 000< 

X 

<= 

3545.300) 

= 

.0028 

Pr 

{ 

3545. 300< 

X 

<= 

3626.600) 

= 

.0039 

Pr 

{ 

3626. 600< 

X 

<= 

3707.900) 

= 

.0095 

Pr 

{ 

3707. 900< 

X 

<= 

3789.200) 

= 

.0191 

Pr 

{ 

3789. 200< 

X 

<= 

3870.500) 

= 

.0309 

Pr 

{ 

3870. 500< 

X 

<= 

3951.800) 

= 

.0486 

Pr 

{ 

3951. 800< 

X 

<= 

4033.100) 

.0700 

Pr 

{ 

4033. 100< 

X 

<= 

4114.400) 

= 

.0882 

Pr 

{ 

4114. 400< 

X 

<= 

4195.700) 

.  1038 

Pr 

{ 

4195. 700< 

X 

<= 

4277.000) 

= 

.1167 

Pr 

{ 

4277. 000< 

X 

<= 

4358.300) 

= 

.1196 

Pr 

{ 

4358. 300< 

X 

<= 

4439.600) 

= 

.1058 

Pr 

{ 

4439. 600< 

X 

<= 

4520.900) 

= 

.0897 

Pr 

{ 

4520. 900< 

X 

<= 

4602.200) 

= 

.0723 

Pr 

{ 

4602. 200< 

X 

<= 

4683. 500^ 

= 

.0514 

Pr 

{ 

4683. 500< 

X 

<= 

4764.800) 

= 

.0316 

Pr 

{ 

4764. 800< 

X 

<= 

4846.100) 

= 

.  0187 

Pr 

{ 

4846. 100< 

X 

<= 

4927.400) 

= 

.  0108 

Pr 

{ 

4927. 400< 

X 

<= 

5008.700) 

= 

.0044 

Pr 

{ 

5008. 700< 

X 

<= 

5090.000) 

= 

.0017 

Pr 

{ 

X 

> 

5090  )  = 

.0005 

Pr 

{ 

X 

<= 

3464.000 

) 

.0002 

Pr 

{ 

X 

<= 

3545.300 

} 

.0030 

Pr 

{ 

X 

<= 

3626.600 

) 

.0070 

Pr 

{ 

X 

<= 

3707.900 

) 

= 

.0164 

Pr 

{ 

X 

<= 

3789.200 

} 

= 

.0356 

Pr 

{ 

X 

<= 

3870.500 

} 

= 

.0664 

Pr 

{ 

X 

<= 

3951.800 

} 

= 

.1150 

Pr 

{ 

X 

<= 

4033.100 

} 

= 

.  1850 

Pr 

{ 

X 

<= 

4114.400 

} 

= 

.2732 

Pr 

{ 

X 

<= 

4195.700 

} 

= 

.3770 

Pr 

{ 

X 

<= 

4277.000 

) 

= 

.4937 

Pr 

{ 

X 

<= 

4358.300 

> 

= 

.6133 

Pr 

( 

X 

<= 

4439.600 

} 

= 

.7191 

Pr 

{ 

X 

<= 

4520.900 

} 

= 

.8088 

Pr 

( 

X 

<= 

4602.200 

} 

= 

.8811 

Pr 

{ 

X 

<= 

4683.500 

} 

= 

.9324 

Pr 

( 

X 

<= 

4764.800 

) 

= 

.9640 

Pr 

{ 

X 

<= 

4846.100 

) 

= 

.9826 

Pr 

{ 

X 

<= 

4927.400 

} 

= 

.9935 

Pr 

{ 

X 

<= 

5008.700 

) 

= 

.9978 

Pr 

{ 

X 

<= 

5090.000 

} 

= 

.9995 

S  ' 


Table  12  (Continued) 

THE  MEAN  OF  THE  DIST.  «  4279.7714 

THE  VARIANCE  OF  THE  DIST.  *  73074.0281 

THE  STD.  DEV.  OF  THE  DIST.  -  270.322: 
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Table  13.  General  Output  File  for  Exarple  Problerr 


THE  PERIOD  LENGTH  -  5 

THE  PERC.  REQUIRED  AT  START  "=  .000 

THE  INFLATION  RATE  »  .10000 

THE  INITIAL  RANDOM  NUMBER  SEED  »  123454.00 


VALLES  OF  ENDPOINTS  FOP  EMPIRICAL  DIST.'S  ARE: 

LEFT-END  RIGHT-END  INT. -WIDTH 

KF  r  EVENT  4 

REAL.  TIME  DIST. 

10  21  .55 

COST  FUNC. 

5070  7746  133.80 


K.'-,  j  F'.’ENT  1C 
RFAL.  TIME  DIST. 

29  46  .85 

COST  FUNC. 

3448  5464  100.80 


KFj  event  13 

RFAL.  TIME  DIST. 

35  52  .85 

COST  FUNC. 

3464  5090  81.30 


TOTAL  PROJECT  COST 

13273  17011  186.90 


Table  14.  File  CASHFLOW.DAT  for  Example  Problem. 


period  length 
5 

max,  periods 
14 


expect ed  cash 
. 277648E+04 
. 746016E+03 
. 374120E+01 
1 key  events 
3 


outflow  per 
212517E-t-04 
746758E+03 
952881E-02 


key  events 

4  10  13 


period 
173647E-t-04  . 
107538E+04  . 
OOOOOOE+00  . 


expected  cash  in flow  for  kev  event  4 
.OOOOOOE+OO  .132299E+01  .169048E+04  . 
.OOOOOOE+00  , OOOOOOE+OO  .OOOOOOE+OO  . 
.OOOOOOE+OO  .OOOOOOE+OO  .OOOOOOE+OO  . 


expected  cash  infl ow  for  key  event  10 
.OOOOOOE+OO  .OOOOOOE+OO  .OOOOOOE+OO  . 
.454279E+01  .542953E+03  .281885E+04  . 
.OOOOOOE+OO  .OOOOOOE+OO  .OOOOOOE+OO  . 


expected  cash  inflow  for 


OOOOOOE+OO 

OOOOOOE+OO 

144858E+03 


OOOOOOE+OO 

116708E+01 

772703E+00 


key  event  13 
.OOOOOOE+OO  . 
.229862E+03  . 
.OOOOOOE+OO  . 


325721E+04 

606587E+03 

OOOOOOE+OO 


461520E+04 

OOOOOOE+OO 

OOOOOOE+OO 

OOOOOOE+OO 

106864E+04 

OOOOOOE+OO 

OOOOOOE+OO 

219535E+04 

OOOOOOE+OO 


. 197417E-04 
.  973920E+02 


.  999844E+02 
. OOOOOOE+OO 


.  OOOOOOE+OO 
.  239204E+02 


. OOOOOOE+OO 
.  170776E+04 


%  received  at  proi.  start.  money  received  at  proi  .  start 


.OOOOOOE+OO 


.OOOOOOE+OO 


mean 

.  160044E+02 
.  640700E+04 
. 380164E+02 
.445891E+04 
. 444840E+02 
.427977E+04 
mean 

. 151456E+05 


std.dev. 
.177541E+01 
.  445518E+03 
. 269132E+01 
.332702E+03 
.288304E+01 
.270322E+03 
std . dev. 

. 624779E+03 


(duration/cost  of  key  events) 


(total  proj .  cost) 


empirica 1  d istribution  functions 


upper  endpt.  Icells 


lower  endpt 
10 

OOOOOOE+OO  . 
167063E-01  . 
114024E+00  . 
670415E-01  . 
437932E-02  . 
5070 

378460E-03  . 
298442E-01  . 


21 

594723E-03 

305471E-01 

116944E+00 

443879E-01 

221669E-02 

7746 

237889E-02 

503892E-01 


20 

194636E-02 

480644E-01 

122404E+00 

268166E-01 

20 

475778E-02 

679065E-01 


cell  width 
.55000 
421712E-02 
734753E-01 
110456E+00 
148680E-01 

133.80000 
. 973183E-02 
.921820E-01 


.978590E-02 

.916955E-01 

.902357E-01 

.919117E-02 


.  191933E-01 
.  108023E+00 
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Table  14  (Continued) 


. 116349E+00 
.474697E-01 
. 200043E-02 
29 

. OOOOOOE+00 
. 203287E-01 
. 115917E+00 
. 601751E-01 
. 254109E-02 
3448 

. 540657E-04 
. 324935E-01 
. 118025E+00 
. 526059E-01 
. 151384E-02 
35 

. 162197E-03 
. 166522E-01 
. 108996E+00 
. 679606E-01 
. 643382E-02 
3464 

. 216263E-03 
. 308715E-01 
. 116673E+00 
.513624E-01 
. 167603E-02 
13273 

. 324394E-03 
. 297361E-01 
. 116998E+00 
.521734E-01 

sample  corr. 


. 118079E+00 
. 293036E-01 
. 135164E-02 

46 

.919117E-03 
. 362240E-01 
. 126892E+00 
. 376838E-01 
. 189230E-02 
5464 

. 113538E-02 
. 497404E-01 
. 111429E+00 
. 323313E-01 
. 324394E-03 
52 

. 702854E-03 
. 301146E-01 
. 116511E+00 
.512002E-01 
. 605536E-02 
5090 

. 281141E-02 
.485510E-01 
. 119647E+00 
. 315743E-01 
.486591E-03 
17011 

. 318987E-02 
.486591E-01 
. 117376E+00 
.317365E-01 

gpef ,  (£)  le 


. 106942E+00 
. 187067E-01 

20 

. 200043E-02 
. 526600E-01 
. 121323E+00 
.202746E-01 

20 

. 367647E-02 
. 703936E-01 
.  107590E+00 
.201124E-01 

20 

. 140570E-02 
.464965E-01 
. 117052E+00 
.  338451E-01 

20 

. 394679E-02 
.700151E-01 
. 105752E+00 
.186526E-01 

20 

.497404E-02 
.666630E-01 
. 106617E+00 
.174091E-01 

St  scatares 


.914251E-01 
. 102724E-01 

.85000 
.448745E-02 
. 830990E-01 
. 102670E+00 
. 122188E-01 

00.80000 
. 940743E-02 
. 925064E-01 
. 902357E-01 
.913711E-02 

.85000 
.  443339E-02 
.  674740E-01 
. 104346E+00 
.  195177E-01 

81 . 30000 
.  946150E--02 
.882353E-01 
.896950E-01 
. 108131E-01 

186.90000 
.940743E-02 
.929930E-01 
.922361E-01 
. 103806E-01 

estimators  ( 


68 

4472E- 

01 

48 

6591E- 

02 

10 

5'‘6eE- 

0. 

95 

5341E- 

01 

86 

5051E- 

01 

605536E- 

02 

18 

7067F  - 

01 

10 

3103E* 

00 

71 

1505E- 

01 

43 

2525E- 

02 

87 

0458E- 

02 

86 

5592E- 

01 

92 

6146E- 

01 

12 

7595E- 

01 

19 

1392E- 

01 

10 

3752E-^ 

00 

.722859E-01 
. 437932E-02 


. 191933E-01 
. 105482E+00 
. 663386E-01 
.475778E-02 


cost  vs.  duration  —  key  event  4 
.972125E+00  .250284E+04  .243942E+03 
cost  vs.  duration  —  kev  event  10 
.531348E+00  .196178E+04  .656853E+02 
cost  vs.  duration  —  kev  event  13 
.543696E+00  .201204E+04  .509784E+02 
total  project  cost  vs.  project  duration 
.750275E+00  .791297E+04  .162591E+03 

fraction  of  total  project  cost  received  at  key  events 

key  event  4  key  event  10  kev  event  13 
.422863E+00  .294404E+00  .282732E+00 
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Program  CASH  is  then  run  to  deterrrine  an  expe.  te  l  j  1 


it  when  given  a  particular  bid  strat-*;,.  la:  ,  -.*  ■  . 

output  file  from  program  CASH  display inq  a  p  ss.l  e  t  .  i  a-  : 
its  associated  expected  profit. 


Table  15.  Output  File  from  Program  CAi'H  f  :  F>.a*f  .<  !•  r  * 


Period 

* 

Interest 

v  a  s 

> 

*  • 

_  e 

I 

1 

IBA 

4  .  36  J 

CA'^’-H 

^  -i  ■ 

I 

2 

IBA 

= 

8.444 

f;'ASH 

4  ' 

I 

= 

3 

I  BA 

1  1  .  ■’8' 

CA.nH 

- 

-  f  1  i  ; 

I 

4 

1  BA 

1  4  .  f.  1  • 

TA'dl 

- 

■«  * 

I 

5 

IBA 

9 . 05‘ 

CAldl 

- 

■»  ' 

.  , 

I 

= 

6 

IBA 

= 

10.299 

CASH 

- 

-  )  U  i 

#  1  , 

I 

= 

7 

IBA 

= 

1  1  .  ■’4  1 

CA.9H 

- 

~  t'  \  ‘  1. 

i  ■ 

I 

= 

8 

I  BA 

w 

12.7  19 

CASH 

-  »  *  4  . 

,  y  :  * 

I 

= 

9 

IBA 

- 

7  .  •  1 

CA  H 

- 

“  a 

-  4  ' 

I 

s 

10 

IBA 

s 

1  .  28R 

CASH 

- 

-  r  ’ 

I 

= 

1 1 

lAF 

s 

1 . 509 

CASH 

= 

1  1  5  f 

1 

= 

12 

lAF 

- 

1.711 

CASH 

- 

1  U  1 

t  ' 

I 

» 

13 

lAF 

1.71' 

CA.SH 

1  M  4 

7  /  r 

■  i  ' 

I 

= 

14 

lAF 

1.717 

CASH 

T 

1  )  1  S 

.  ft.  . 

TERMINAL  CASH  POSITION  *  3525.580 


IBA  —  interest  on  money  borrowed, 
lAF  --  interest  on  money  deposited. 

* 

Cash  balance  at  end  of  period. 


- BID  PACKAGE - 

0.00  RECEIVED  AT  PROJECT  START 

KEY  EVENT  4 

BID  LEVEL  -  7715.31 

DELIVERY  DATE  -  21.00 

LATE  PENALTY  =  .00 


—  •  *  •  ^  •  A 


T^ble  IS  (Continued) 


KFY  FVENT  1  (.■ 

BID  U(VEI  »  S  3  S  "Y  .  4  , 

of:  IVFPY  DATF  =  4#.,  O' 

I>TL  PENALTY  -  . OC 

KFi  FVF.NT  1  1 
BID  LFVF.I 
DF  :  I VFPY  DA : I  - 

:  j  FT  na:  r . 


1 

1  ;  V  ;  t 

FP  F : 

• 

} 

>  'r  f  :  f 

•  F'P  ’F 

.  C  '  ■  ; 

N:  r  r  : Kf 

PA  :  IS  : 

.  K : 

:  :  a:  >• 

AF  :ta: 

-  s  (  ,  1 ,  ^ . 

I 

}  p  i  ■■ : 

pa:f  'S 

M  NF  ',  I  F 

•  ' 

F  PF  7 

pa;f  ''N 

M  'NF  Y  !<■:  'pp'  >w: 

PF  : 

{  N  :  ; 

PAT  F  - 

*>  1  S  1  .  ’ ' 
4  '.<'>■ 

1 


6.5  Discussion  of ^ProgriM' 

A  question  often  raised  about  problem  solutions  is  the 


efficiency  of  the  procedure.  Obv'iously,  a  Monte  Carlo  simu¬ 
lation,  for  a  network  of  practical  size,  will  hav'e  a  lonq 
run  time.  Yet,  considering  that  the  program  will  be  run 
only  once  for  a  particular  project,  the  cost  incurred  w.ll 
rr  s*-  lively  f'e  outweighed  by  the  information  ok-tained  from 
^  he  run . 

Tlie  exa-yle  prot'lem  (11  nodes,  16  activities,  and  a 
Size  of  16,4'^^.  ran  for  ayproximately  27c  minutes  or 


a '  A  !  4  I 

F-  '  r  i 

>  .  This 

was  slightly 

more 

than 

1  sample 

per 

(' '  t  '.'1 

IS  1  y  ,  a 

r  re  powerful 

com 

put  er 

would  reduce 

r  ']"  time 

C  'fi  S  1 

i  e  r  a  1:  1  y  . 

f  t  ,> 

J!  ams 

AN  -IN, 

AN-cr>;;T,  and 

CA.^H 

have 

storage 

re- 

:  .  ■  t 

»s  of 

'^4,2^4.  1 

.•4,Bls,  an! 

,  1 

bytes 

,  respect 

1  ve- 

r.  ,  a  n  1 

were  ^ 

t  'uram.med 

on  a  PC  with 

64  OK 

RAM. 

I 


i 


I 

f 


7 .  CONCLUSION  AND  DIRECTION  FOR  FUTURE  RESEARCH 

In  the  arena  of  project  bidding,  it  is  essential  to 
submit  a  bid  that  will  be  competitive  yet  gainful  to  the 
bidder.  For  this  reason,  it  is  important  that  the  manager 
have  accurate  and  complete  information  on  the  project  on 
which  he  is  bidding.  The  computer  package  developed  in  this 
work  gives  the  manager  the  distributions  of  duration  and 
cost  at  the  key  events  of  the  project,  as  well  as  the  expec¬ 
ted  cash  flow  arising  from  the  project  execution.  It  also 
will  assist  him  in  cash  flow  calculations,  and  in  the  prepa¬ 
ration  of  a  bid  package. 

Application  of  AN  theory  to  project  bidding  is  an  area 
of  reseaich  that  has  been  mostly  ignored  to  this  date.  This 
work  represents  only  the  beginning  of  research  in  the  area 
and  needs  empirical  evidence  to  validate  many  of  the  assump¬ 
tions  of  the  model.  A  logical  next  step  would  be  to  ap¬ 
proach  the  problem  via  analytical  approximation  as  opposed 
to  approximation  by  Monte  Carlo  simulation. 

Further  down  the  road,  once  the  question  of  the  deter¬ 
mination  of  a  bid  has  been  satisfactorily  investigated,  is 
the  problem  of  investment  of  additional  resources  in  the 
project  to  yield  earlier  delivery  dates  for  one  or  more  of 
the  key  events  of  the  project.  This  may  be  necessary  in 
order  to  obtain  the  contract  in  a  competitive  environment  if 
the  delivery  date  is  the  overriding  consideration.  This 
problem  goes  deeper  than  the  problem  of  optimal  time-cost 


trade-offs  in  directed  acyclic  networks  because  of  the  cash 
flow  problem  when  determining  a  bid.  The  time-cost 
trade-off  problem  has  not,  to  this  date,  been  satisfactorily 
addressed  in  the  case  of  probabilistic  ANs. 

Finally,  a  complete  model  of  bidding  should  be  cast  in 
a  game-theoretic  framework,  which  has  not  been  addressed  in 
this  thesis  (here,  we  assumed  a  one-against-all  model) . 
This  would  take  into  account  many  factors  such  as  the  number 
of  competitors  bidding  for  the  project,  potential  profit  and 
loss  functions,  as  well  as  multiple  projects.  The  end  re¬ 
sult  would  be  an  overall  bid  strategy  for  the  entire  scope 
of  many  projects. 


I 
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Appendix 


9.1. 


Program 


Listing 


of  AUC-IN 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  PROGRAM  ANC-IN  31  NOV  86 

C 

C  MODIFIED  BY  RUSSELL  S.  VOGTMANN 

C 

c  THIS  PROGRAM  PREPARES  AM  INPUT  DATA  FILE  FOR  PROGRAM  AN- 

C  COST.  IT  MAS  THE  CAPABILITY  TO  GENERATE  A  NETWORK  AT  RANDOM  IF 

C  DESIRED. 

C  IT  SHOULD  BE  SELF-EXPLANATORY. 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

COMMON  /PAR1/N,M,NRR,NCONT,MCS,NSIM,SCAL,NR(100),NT(50) 

COMMON  /PAR2/NS(100),NE(100),NDSTT(100),R(100,30),PR(100,30> 

COMMON  /PAR3/T(50,30),PT(50,30) 

COMMON  /PAR4/EX(100),STDX(100),VMIN(100),VMAX(100) 

DIMENSION  KEYN(50),NULT(100),NDS(100),AA(100),BB(100),CC(100) 

DIMENSION  DO<100),FC(100),DM(100) 

DIMENSION  NRC(1DO),P1(100) 

CM*5*:rER  FNAME*6, CFNAME*6 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


rciN'  PROGRAM  INTRODUCTION 


CA.^  INFORM 

’-IS  PROGRAM  area  obtains  GENERAL  INFORMATION  FROM  USER 

URrE(*,30T) 

RfA'  *,3021  FNAME 

OPEN,3,'I.E='NAME,STATuS='MEW') 

CA..  REED2CNANG) 

CA.,  REt:3CN:ONT) 

m:s=c 

NS  I "=0 

Ca.l  REE:5(N,m) 

CAv.  REEDfriSCAi.  ) 

CAU  REEC7(IC£Y,I(EYN,NRR,N) 

CA..  HA.T 


c 


GENERA’E  NE’WORK  IF  DESIRED 


IP  (NANG.EQ.1) 
NNANG=0 

wp"f:3,?:2) 

WPI'E(3,2'5) 

I P (NANo.EC. 1 ) 


CALL  GNRAT 

SCA. ,N,M,NRR,NC0N’,MCS,NSIM,KEY,NNANG 
(NEYN( I ), 1=1 .KEY) 

THEN 


»••••«#•••«*••««*•*•**«•**«*«*•«***•«**********•***♦******* 

Og'AIN  CjRA’ION  info  if  network  HAS  BEEN  GENERATED. 
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c 

c 

CALL  REED8(N01) 

DO  6  I«1,N01 

6  CALL  REE09(I,NULT(I),NDS(I).NT(I)) 

C 

DO  7  1=1, NOI 
if(nds(I).ne.7)  then 

CALL  REED10(I,NDS(I),AA(I),BB(I),CC(I>,DD(I)) 

ELSE 

DO  12  J=1,NT(1) 

12  CALL  REED11(I,J,T(),J),PT(I,J)) 

END  IF 

7  CONTINUE 
C 

K=0 

DO  8  1=1, NOI 

IF(I.GT.I)  IC=NULT(I-1) 

DO  9  II=K+1,NULT(I) 

WRI7E<3,203)  NS(n),NE(n),NDS(I),NT(l) 

IF(NDS(n.NE.7)  THEN 

URITE(3,205)AA(I),BB(I),CC(I),DD(I) 

ELSE 

WRITE(3,205)(T(r,J),PT(I,J),J=1,NT(l)) 

END  IF 

9  CONTINUE 

8  CONTINUE 

C 

^  ****«************************************=**********«*********** 

C  OBTAIN  DURATION  INFO.  IF  NETWORN  IS  NOT 

C  ••••••*••»••«•*«*«*•*•***•**•*•**•»**•*«*»•**•***«•**•*******•*• 

C 

ELSE 

DO  22  1=1, M 

CALL  REED12(I,NS(I),NE(I.',N0STT(I),NR(I)) 
if(nostt(I).ne.7)  then 

CALL  REEDU<I,N0STT(I),EX{I),STDX(I),VMIN(I),VMAX(I)) 
elje 

DO  11  J=1,NR(I) 

•’  CAlL  REE015(I,J,R(1,J),PR(I,J)) 

ENDIF 

continue 
DO  102  1=1, M 

WR:TE(3,2.-i)  NS(I),NE(I),NOSTT(I),NR(I) 

lftNDSTT(I).NE.7)  THEN 

geiTE(3,205)EX(!),STDX(I),VMIN(I),VMAX(n 

'  . 

-B : -E '5,205)(R(I , J),PR(I,J),J=1,NR(I)) 

f  n:  ■  c 
ON  • :  mjE 


GENERATED 


A 


WILL  ASX  YOU  FOR  DATA  TO  RUN 


IT  DOES  SOME  PRELIMINARY 


CHECKS 


AND  PUTS  the 


iruw  W  w  rv.* 


201 

202 

203 

205 


&5X, 'AN -COST. 

&5X,'DATA  INTO  A  fILE.',//, 

iSX.'GIVE  A  NAME  FOR  THAT  FILE',/, 

&5X,'THE  NAME  SHOULD  BE  OF  FOUR  CHARACTERS 

&5X,'BE  TWO  ADDITIONAL  CHARACTERS  AT  THE  BEGINNING 
&5X, 'SPECIFYING  THl  DRIVE.',/. 

SSv.'AN  EXAMPLE  IS  B:PRES',/, 

&5X,'HOPE  THE  FILE  DOES  MOT  ALREADY  EXIST’) 

FORMAT(II) 

FORMAT{F5.3,10I5) 

FORMAT(UI5) 

FORMAT(6E11.4) 


AND  there  SHOU.L',/, 


PROGRAM  AREA 

TO  OBTAIN 

DATA  ON 

activity 

COS’ 

URITE(*,303) 

;03  FOfiMAT(5L/),5x, 

'NOW 

YOU  w:u 

BE  as»e: 

E  JE  jN  ON 

&5X,'COST  DISTRIBUTIONS 

OT  The 

AC  V  M  '  ’  ;  1 

W  K  '  \ 

IF  (NANG.NE.1) 

THEN 

-CASE  WHEN 

AC'IVITt 

Nf 

:  S  N'  ' 

■  f  »*  ■  ■  ,M 

’  "I 


35 


00  33  !  =  VM 

CA.  ,  «fEL'6  .NL'  .HI  1 
CA.  ,  R(  f  E  '  /«•  H 

SON'  M.f 


rft  '  I  ' 

«k  ti  1 


WR1TE(3,20S)  FC( 1  ),DH( 1 ) , PI ( I ) , VMIN( 1 ) , VMAX( ! ) 

99  COKTINUE 

96  continue 

c 

END  IF 

r 

CLOSE{3,STATUS='tCEEP‘> 

STOP 

END 

C 

C 

subroutine  inform 

c 


NRiTEC.I) 

PAUSE 

nr: te(*,2, 

PAUSE 

nritec'.r; 

PAUSE 


FORMA' (S> . ' 
6'j/  AN  COS’ 

' ' hA ' 

'  F- .  S 

i  '  »  '  ■ 

6  ’  C' » 


'PIS  PROGRAM  PREPARES  THE  INPu’  EIlES  FOR  PROGRAM,/, 

NR.Cr  determines  Bit  PRICES  FOR  PROJECTS  ,/, 
can  be  MUOE.Et  WITH  tIRtClEL  ACrCtIC  F.i  'WORFS  ■  , , 

PROGRAM  HAS  T  HE  AODUlONAi  FACI.ITt  FOR:',/, 

RANtJM  GENERA’ ;ON  OF  A  NF'nORf  ,  , 

.INUNC  NlTH  OODIN  S  program  'C  DETERMINE  LIS’R: 

Bl’'ONE  of  node  REA.;CAt;on  '|M:i 


A  ’  CU 


A'U^ ,  'NCTF 
6  '  C» 

4  '  C  F  , 

4 

6  > 

4 

4  '  [J> 

C  A 
6  A 


TO  RUN  AN  cost.  EXE,  TOC  MuS'  '  Ji, 

CREA’f  DA’A  f;,F  CUMAINING  GENERA.  .N*'. 

AND  D'JRAT  ION/l,OS’  iNfURMA’iUt  USING  'R.J 

program  ' 


RUN  t'Jt  ■  ’RNS  EXE 
OF  At*  Ev/ENIS  Nh.CP 

(IP'S  wii  Also  give 


Dt  ’ERM  NI 
ARE  Pu’ 
REA,  TiMF 


ni  I.K 

ANL 

.A(- 

K  .  t 

I  h  i 

AN' 

f.}‘ 

>  [ 

E  Vt  N  '  s  A  ,  /■  , 

RUN  AN  :.fs’  EXE 


j 

jf-AN 

A«<i  ;n^'j' 

6  *  ^  b  ' 

t  ■  ’  #  k  .DA 

VOL'MANK 

t".  f 

A‘.  V  At  R  .  i»UK 

DK 

t.HAOMNAB''  .!>. 

*  UkMA ■  1 

.  . 

'  A  ’  I  ON 

li 

Of  'Mf  PROOi-Af-  ,/ 

AiU;i,  T 

MAJ> 

lUl 

ARLS-  J  . 

MA;< 

be 

N'Jtt  S’./, 

fc  '  'J  ?  ,  ■  i 

MA# 

50 

OJRA’ IONS 

fOI-  AN  At'jvlTr 

&  '  ,  '  i. 

L 

CTtD 

ACYCi  H 

Nf  ’W'JfcrS  ONi  T 

RE ' URN 
ENI 


8T 


vwc-,>_v 


subroutine 


REED2(NANG) 


IST0P*1 


CHARACTER 
WR.  E(*,1) 

F0RMAT<5X, -WOULD 
tSX.'lF  SO,  TYPE 

tSX.'Jf  NOT,  TYPE 


YOU 

IN 

IN 


LIKE  TO 

N  .THIS 


GENERATE  A  RANDOM  NETWORK  ?',/, 
MEANS  TOUR  NETWORK  IS  READY.',/, 


TYPE  IN 


i5X,'T0  STOP, 

READ(*,2;iSTOP 
FORMATCAI ) 

IFCISTOP.EQ. 'S' .OR.lSTOP.EO.'s') 


•) 


I F( ISTOP.EQ. ' Y' .OR. ISTOP.EQ. 'y' ) 


IFCIS’OP.ES. 

RETURN 

END 


'N' .OR. ISTOP.EQ. 'n' ) 


STOP 

NANC^I 

NANG^O 


SUBROUMNE 


REED3(NC0NT ) 


character 

WRl Tf (*,  1  ) 
FORMAT  i'yr  ,  'C(. 
ASx .  'BUT  IONS 
iSx.'lF  so, 

4‘,»  ,  ■  I  F 

. ■ TO  S’OP 

RE  ACl  •  ,  /  J 

FORMA’  (AT  j 
IF(  IS'O  EQ  'S 
:  F  (  ■  b '  o  E  0  ' ' 

:  >  '  .  i  '  E  0  R 

RE  TORN 
ENL 


JSTOP'l 


TOO  act;.,  I  Its 

TTPE  IN  *  './. 

T  THE  IN  N  ■  , / , 

'TPE  IN  S  ■) 

1  S  lOF- 


nITm  continuous 


DlSTRl 


OR  ISTOR  ,EQ  ■  N  •  JSTOR 
OR  1  S  '  OR  E  U  ■  y  ■  , 

TJR  'S"JR  EL  "  ■ 


N(  ON  '  - 
NC  ON  '  - 


SOBRTJjT  INE 


REELSiN.M) 


1.  hARA'..'ER  :S"tR‘ 

rr: 'E ( • ,  1 ) 

FORMA'  (  Sx  ,  ■  T  TPE 
READ(*,*)N,M 

I  F  (  N  .  E  S'  AN'  N  'j| 


IN  The  »  of  n(XE  T 


«/ 


J 


‘ 


J 


URITE{*,2) 

2  F0RMAT(5X,'THE  #  OF  MOOES  IS  OUT  OF  RANGE.',/, 

«X, 'WOULD  YOU  LIKE  TO  TYPE  IN  THE  #  OF  NODES  AND  THE',/, 
&5X,'#  OF  ARCS  AGAIN  ?',/, 

&5X,'IF  SO,  TYPE  IN  Y  ',/, 

i5X,'IF  NOT,  TYPE  IN  S  AND  THE  PROGRAM  WILL  STOP.') 
READ(*,6)  ISTOP 
6  FORMAT (A1) 

IFCISTOP.EQ. 'Y' .OR.ISTOP.EQ. 'y')  THEN 

GO  TO  7 

ELSE 

STOP 
END  IF 

3  IF{M.GE.N-1.AND.M.LE.N*(N-1)/2.AND.M.LE.100)  GO  TO  8 

WRITE(*,A) 

4  FORMAT (5X, 'THE  NUMBER  OF  ARCS  IS  OUT  OF  RANGE.',/, 

«5X, 'WOULD  YOU  LIKE  TO  TYPE  IN  THE  #  OF  MOOES  AND  THE  ',/, 
tSX,'#  OF  ARCS  7',/, 

45X,'IF  SO,  TYPE  IN  Y  ',/, 

t5X,'IF  NOT,  TYPE  IN  S  AND  THE  PROGRAM  WILL  STOP.') 
REA0(»,6)  ISTOP 

IF(lSTOP.EQ.'Y'.Ofi.ISTOP.EO.'y')  THEN 

GO  TO  7 

ELSE 

STOP 
END  IF 

8  RETURN 

END 
C 
C 

C  . . . . . * . * . 


SUBROUTINE  REE06(SCAI.) 

C 

C  . . . 

L 

CHARACTER  ISTOR*! 

H  WR  !  T  f  (  •  ,  ’  I 

»URNA'  (  V  »  ,  ■  1  -  K 
ibi ,  'DISTRE  ’  )/A'  irjN 
4‘)»  ■* 

:  • '  L ,  » ,  '  "  . 

N*  ,  '  t  I  •  .  , 

ATiJt,  'WUj.  L-  rrji,  .  IM  ’’  :»»  ■  '■»»(•■  it 

4-1  ,  l  ■,  'Ml  IK' 

4‘,  «  'l  N''  '‘H  N  •■»>>;  "I  , 

H  *  :  -  •  •  It 

!*•<*'  *' 

t  I  '  ,  '  >  K 


'HI  :  H  '  I  ►  »*. 

tc*  t.<«’A;N.'l».. 


WiC'H  "  HI  uSIl 

MIAN  AN(  vAR 


'  "I  » 


I  •  I 


STOP 
END  IF 

ELSE 
END  IF 
RETURN 
END 
C 
C 

Q  *****•*•***********••**•**•*•**•**•****«*•«••«****«**>••***•***** 

C 

SUBROUTINE  REED7(KEY,KEYN,NRR,N) 

C 

c 

DIMENSION  ICEYN(50) 

CHARACTER  ISTOP‘1  ,OI<*1 

4  WRITE(*,1) 

1  FORMAT {5X, 'TYPE  IN  THE  NUMBER  OF  ORDERED  PAIRS  IN  THE 

45X, 'APPROXIMATE  DISTRIBUTION.',/) 

R£AD(»,»)NRR 

IF(NRR.GT.30.OR.NRR.LE.0)  THEN 

WRITE(*,8) 

8  FORMAT (5X, 'VALUE  OF  NRR  OUT  OF  RANGE',/, 

&5X, 'WOULD  YOU  LIKE  TO  INPUT  CORRECTED  VALUE  ?’,/, 

45X,'IF  SO  TYPE  IN  Y  ',/, 

45X,'IF  NOT,  TYPE  IN  N  AND  THE  PROGRAM  WILL  STOP.') 

REAO(*,7)ISTOP 
7  F0RMAT<A1) 

IFdSTOP.EQ.  'Y'.OR.ISTOP.EQ.'y')  THEM 

GO  TO  4 

ELSE 

STOP 
END  IF 

ELSE 

ENDIF 

C 

5  WRITEC.Z) 

7  F0RMAT(SX, 'TYPE  IN  the  •  OF  MILESTONES  OR  KEY  NODES  IN' 

iSX.'TME  PROJECT.') 

READ(*,*)KEY 

I F (KEY , I T . 1 .OR . KE Y  GT .N  OR  KEY.CT .SO) 

WR1T£(*,9) 

9  FORMAT  (S* VA.  J|  OF  KEY  CXJI  O' 

tSK,  'WOULD  YOU  (IKE  TO  TYPE  IN 

4S*,  '  IF  SO,  type  in  Y  ■  ,/. 

iSK.'IF  NCI,  TYPE  IN  N  AND  TxE  PROGRAM  u!,i  STOP  ') 
REAtl*,T)  ISTOP 

:<llS")E'  fO  '  T  •  OR  .  1 ',T!.)F  .  t  J  'MfR 

w;  S 

f  I  SF 

S  '  )l 
ENG  IF 

I  I  'if 


THEN 

range ' ,  '  , 

CORRECTED  VA.Of 


END  IF 


C 

6  WRITE(*,3) 

3  FORMAT (5X, 'TYPE  IN  THE  LIST  OF  KEY  NODES  IN  ASCENDING 

READ(*,*)(KEYN(I),I=1,KEY) 

OK='Y' 

IF(KEYN(1).LE.O)  OK*'N' 

IF(KEYN{KEY).NE.N)  OK^’N' 

DO  11  1=2, KEY 
J=I-1 


IF(KEYN(J).GE.KEYN(I)) 

OK='N' 

11 

CONTINUE 

IFCOK.EQ. 'N' .OR.OK.EQ. 

,'n') 

THEN 

WRITE(*,10) 

10 

FORMAT(5X, 'VALUES 

OF 

KEY 

NODES 

INCORRECT' ,/, 

S5X, 'EITHER  FIRST 

KEY 

NODE 

IS  LE 

0',/, 

&5X,'OR  LAST  KEY 

NODE 

IS 

NE  N',/, 

45X,  'OR  KEY  NODES 

NOT 

IN 

ASCENDING 

ORDER',/ 

45X, 'WOULD  YOU  LIKE  TO  INPUT  THE  NODES  AGAIN 
iSX.'IF  SO,  TYPE  IN  Y  ',/, 

i5X,'IF  NOT  TYPE  IN  N  AND  THE  PROGRAM  WILL  STOP.') 

READ(*,7)  ISTOP 

IFCISTOP.EQ. 'Y' .OR.ISTOP.EQ.'y')  THEN 

GO  TO  6 

ELSE 

STOP 
END  IF 

ELSE 

ENDIF 

RETURN 

END 

C 

C 

C  . . 

c 

SUBROUTINE  HALT 
C 

C 

character  IST0P*1 

WRITFf*. 1 ) 

1  FORMAT  (5X, 'WOLUO  YOU  I  IKE  TO  CONTINUE  OR  WOULD  YOU  L 

ISX.'TO  STOP  Y',/, 

ISX.'TO  CONT INUE . TYPE  IN  Y 

ISX.'TO  STOP.  TYPE  IN  S  ') 

RFAD(*,2)  ISTOP 

?  FORHAT(AT) 

IFCSTOP.Ea  'S'  OR  .  ISTOP  ,EQ. 

»t  TURN 
END 


ORDER. ' ,/) 


IKE ' 


STOP 


I 


SUBROUTINE  REED8(N0I) 


YOU  LIKE 
TYPE  IN 
,  TYPE  IN 


IS  ASSUMED  THAT  THE  ACTIVITY 

DED  INTO  SEVERAL  PARTITIONS. 
;d  by  an  activity  number 

OP  THE  PARTITION.  EACH  P, 

TYPE  OP  DISTRIBUTION.*,//, 

NUMBER  OF  PARTITIONS') 


OP  PARTITIONS 


CHARACTER  ISTOP»1 

WRnE(*,1) 

FORMATCSX, 'IT  IS  ASSUMED  THAT 

t5X,'CAN  BE  DIVIDED  INTO  SEVERAL 
15X,'IS  REPRESENTED  BY  AN  ACTIVI 

iSX, 'UPPER  LIMIT  OP  THE  PARTITIOI 

&5X, 'DIFFERENT  TYPE  OF  DISTRIBUTI 

&SX,'TYPE  IN  THE  NUMBER  OF  PART 
REAOC*,*)  NOI 

IF(NOI.LE.O)  THEN 

WRITE!*, 2) 

FORMAT(5X, 'THE  NUMBER  OF  PARTIT 

&5X, 'NUMBER. ' ,/, 

&5X, 'WOULD  YOU  LIKE  TO  RE-ENTER 

i5X,'IF  SO,  TYPE  IN  Y  ',/, 
85X,'IF  NOT,  TYPE  IN  S  AND  Tt 

READ(*,4)IST0P 
FORMAT (A1 ) 

IF( ISTOP.EQ. 'Y' .OR.ISTOP.EQ. *v') 

GO  TO  3 

ELSE 

STOP 

END  IF 

ELSE 
END  IF 
RETURN 
END 


Y  OF  THE  NETWORK',/, 
;.  EACH  PARTITION',/, 
WHICH  IS  THE  ',/, 
PARTITION  HAS  A',/, 


IS  NOT  A  POSITIVE 


TO  RE-ENTER  THE  NUMBER  OF  PARTITIONS',/, 


THE  PROGRAM 


STOP. ') 


SUBROUTINE  REED9( I , NULT , NDS, NT ) 


CHARACTER  IS 
WRITE(*,1) 
FORMAT(5X, 'NEXT 


PARTITION, 


FOLLOWING' 


45X, '3 

QUANTITIES 

IN 

SERIAL  ORDER:*,/, 

45X,  ' 

A. 

NULT  : 

IT  IS 

THE  NUMBER  OF  THE 

ACTIVITY  REPRESENT-',/ 

45X, ' 

ING  THE  UPPER  LIMIT  OF 

THE  PARTITION.',/, 

45X, ' 

B. 

NDS 

IT  IS 

THE  type  of  DISTRIBUTION  OF  THE  ',/, 

45x, ' 

ACTIV'TY  DURATIONS  IN 

THIS  PARTITION.',/, 

45X,  ' 

FOR 

UNIFORM  DISTN., 

NDS=1 ' ,/, 

45X,  ' 

FOR 

TRIANGULAR  DISTN., 

NCS=2' ,/, 

45x, ' 

FOR 

NORMAL  DISTN., 

NDS=3',/, 

4SX,  ' 

FOR 

EXPONENTIAL  DISTN. 

,NDS=4' ,/, 

45X,  ' 

FOR 

GAMMA  DISTN., 

NOSES' , /, 

%  *.  .S  *.  .'V  "»  V  ^  O  O  N.*  O  v.* 


FOR  BETA  OISTN. 


NDS=6',/, 


S5X,  • 

FOR  DISCRETE  OISTN., 

NDS=7',/, 

&5X.  • 

N0S=7  FOR  ANY  DISTN. 

REPRESENTED  BY',/ 

&5X,  • 

A  SET  OF  FINITE  ORDERED  PAIRS',//, 

&5X, ' 

C.  NT 

:  IT 

IS  THE  #  OF  ORDERED 

PAIRS  IF  NDS=7',/, 

&5X,  ■ 

IF 

NDS  IS  NOT  EQUAL  TO 

o 

II 

z 

WRITE(*,3)  I 
FORMATCSX, 'TYPE 


IN  THE  VALUES  OF  NULT,  NDS  AND  NT',/, 


&5x,'for  the  partition  no. *,12) 

READ(*,*)NULT,NDS,NT 
CALL  CHECK4(NULT,OK,ISTOP) 
IFtOK.EO.'N'.OR.OK.EO.'n')  TH 

IFdSTOP.EQ.'Y'  .OR.ISTOP.EQ.'y') 

GO  TO  4 

ELSE 

STOP 

END  IF 

ELSE 
END  IF 

CALL  CHECK3(NDS,NT,OK,STOP) 

IFIOX.EO. 'N' .OR.OpC.EQ. 'n' )  TH 

IFdSTOP.EQ.  'Y'  .OR.ISTOP.EQ.  'y') 

GO  TO  4 

ELSE 

STOP 
END  IF 

ELSE 
END  IF 
RETURN 
END 


*************************************************************** 


SUBROUTINE 


REED10d,IT,EX,STDX,VMIN,VMAX) 


CHARACTER  ISTOP»l,  OK*1 
WRITE(*,1)  I 

FORMAT(5X, 'TYPE  IN  THE  VALUES  OF 
&5X,'VHIN,  VMAX,  FOR  THE  ACTIVITIES 
&10X,'THE  PARAMETERS  ARE  EXPLAINED 


EX,  STDX,',/, 

IN  PARTITION 
BELOW; ' ,//, 


VMIN  IS  THE  MINIMUM  VALUE  OF  THE  RANDOM  VARIASlE.' 
IT  IS  USUALLY  DECIDED  BY  THE  CRITERION: , 
P(Y.LE.VMIN)«0.0005. ',/, 


•  *•’  •*'  “ta'  ■-  *• 


l.« 

^S; 


&5X 

■DISTRIBUTION 

INDEX 

EX 

STDX 

REMARKS' ,//, 

&5X 

•  UNIFORM 

1 

0.0 

0.0 

s 

&5X 

'TRIANGULAR 

2 

M 

0.0 

' ,/, 

&5X 

'  NORMAL 

3 

MEAN 

S.D. 

',/, 

&5X 

'  EXPONENTIAL 

4 

MEAN 

?; 

ASX 

•  GAMMMA 

5 

ALPHA 

BETA 

ASX 

•  BETA 

6 

ALPHA 

BETA 

'./. 

I 


&5X,'VMAX  IS  THE  MAXIMUH  VALUE  OF  THE  RANDOM  VARIABLE.',/, 
iSX.'IT  IS  DECIDED  USUALLY  BY  THE  CRITERION:-',/, 

45X, 'P(Y.GE.VMAX)=0.0005. ') 

READ!*,*)  EX,STDX,VMIN,VMAX 

CALL  CHECX1{IT,EX,STDX,VHIN,VHAX,OtC,ISTOP) 

IF(OK.EQ.'N'.OR.OK.EO.'n')  THEN 

IF(ISTOP.EQ.'Y'.OR.ISTOP.EQ.'y')  THEN 

GO  TO  4 

ELSE 

STOP 

END  IF 

ELSE 
END  IF 
RETURN 
END 
C 
C 

c 

SUBROUTINE  REED1 1 { I , J , R, PR ) 

C 

c 

CHARACTER  ISTOP»1 

3  UR1TE(*,1)  J,I 

1  FORMAT (5X, 'TYPE  IN  THE',12,'TH  PAIR  OF  ACTIVITY  DURATION',/, 

&5X,'AND  PROBABILITY  FOR  PARTITION  NO.  ',I2,/> 

REA0(«,«)  R,PR 

IF(R.LE.O.O.Ofi.PR.LT.O.O.OR.PR.CT.I.O)  THEN 

WRITE(»,2) 

2  FORMAT(SX, 'THE  VALUES  OF  DURATION  AND/OR  PROSAB I L I T Y ' , / , 

t5X,'ARE  OUT  OF  RANGE',/, 

iSX, 'WOULD  YOU  LIKE  TO  INPUT  CORRECTED  VALUES 

45X,'IF  SO,  TYPE  IN  Y',/, 

45X,'IF  NOT,  TYPE  IN  S  AND  THE  PROGRAM  WILL  STOP.') 

REA0(*,4)  ISTOP 

4  FORMAT(AI) 

IF{  ISTOP.EO. 'Y' .OR . 1  STOP . EQ . * V * )  THEN 

GO  TO  3 

ELSE 

STOP 

END  IF 

ELSE 
END  IF 
RETURN 
END 

C 

C  . * . . . 

c 

S..B8  Jl,  •  INL  Y!  ‘  m  N,  s'  •  .  SR  ' 

c 

C  . 


c 


CHARACTER  1ST0P*1,  0K*1 

6  WRITE{*.1)  I 


1 

FORMAT (5X, 'FOR 

ACTIVITY 

■,I2,'  READ 

IN  THE  PARAMETERS',/ 

&5X,'NS,  NE, 

NOSTT,  NR 

IN  THAT  ORDER: 

&5X,'  A.  NS 

:  STARTING 

NODE*,/, 

45X, 'B. 

NE 

:  ENDING 

NXE',/, 

S5X, 'C. 

NOSTT: 

IT  IS 

THE  TYPE  OF  DISTRIBUTION 

OF 

THE 

&5X, ' 

DURATION 

OF  THE  ACTIVITY.' 

,/, 

&5X,  • 

FOR 

UNIFORM  DISTN., 

NDSTT=1' 

,/, 

15X,  • 

FOR 

TRIANGULAR  DISTN., 

NDSTT=2' 

,/, 

*5X,' 

FOR 

NORMAL  DISTN., 

HDSTT=3' 

,/, 

»5X,' 

FOR 

EXPONENTIAL  DISTN., 

NDSTT=4’ ,/, 

S5X,  • 

FOR 

GAMMA  DISTN., 

N0STT=5' 

,/, 

»5x,' 

FOR 

BETA  DISTN., 

HDSTT=6' 

,/, 

&5x. 

FOR 

DISCRETE  DISTN., 

NDSTT=7' 

,/, 

tSX,  ‘ 

N0S=7 

FOR  ANY  DISTN. 

REPRESENTED 

BY 

tsx,  • 

A  SET  OF  FINITE  ORDERED  PAIRS,'//, 

tsx,  ■ 

C.  NR 

:  IT  IS 

THE  «  OF  ORDERED 

PAIRS  IF 

MDSTT= 

tSX,'  IF  NOSTT  IS  NOT  EQUAL  TO  7,  NR^O') 

»EAD(*,*)  NS, NE, NOSTT, NR 
call  ChE:a2(>iS,N£  ,0«.,  ISTOP) 

IFCOl.EQ. 'N' .OR.OA.EQ. 'n' )  THEN 

I F( ISTOP.EQ. 'T ■ .OR . ISTOR.EQ. 'y- )  Then 

GO  TO  6 

E>S£ 

STOP 

ENOM 

f  .5F 
f  NC  !  ‘ 

CA..  ChELaTiNOS"  .»R,  JA,  :S’OP' 

t  L  N  OR  -'A  f  -  ■  '  ■  "r  N 

•.  y'.>  t.  ’  t.  .  '  ■ '!  N 

Jl'  ’  -■ 

‘  .  Sr 

S'  ,»■ 

ENO  ■ 


<•  «» 


■  N. 


s  ft*  I 


.M  •.  ,«A. 


&10X,'THE 

PARAMETERS 

ARE  EXPLAINED 

BELOW: ' ,//, 

&5X, 'DISTRIBUTION 

INDEX 

EX 

STDX 

REMARKS',//, 

iSX,  • 

UNIFORM 

1 

0.0 

0.0 

'./ 

&5X, 'TRIANGULAR 

2 

M 

0.0 

&5X, ' 

NORMAL 

3 

MEAN 

S.D. 

',/ 

tSX,'  EXPONENTIAL 

4 

MEAN 

',/ 

S5X, ' 

GAMMMA 

5 

ALPHA 

BETA 

',/ 

*5X,  ' 

BETA 

6 

ALPHA 

BETA 

',/ 

&5X, 'VMIN 

IS  the  MINIMUM 

VALUE 

OF 

THE  RANDOM 

45X, 'IT 

IS  USUALLY 

DECIDED 

BY 

THE 

CRITERION:- ',/ 

tSX, 'P(Y. 

LE.VHIN)=0.0005 

tSX, 'VMAX 

IS  the  maximum 

VALUE 

OF 

THE  RANDOM 

&5X, 'IT 

IS  DECIDED 

USUALLY 

BY 

THE 

CRITERION: •  ' ,/ 

45x, 'P(Y. 

GE. VMAX) =0.0005 

•  ) 

variable 


READC*,*)  EX,STDX,VMIN,VMA* 

CALL  CMECX1(!T,EX,STOX,VMI»(,\mAX,OA,  ISTOP) 
IFCOX.EO. 'N' .OS.OK.EQ. 'n' )  THEA 

I  F(  ISTOP.EQ.  'V  '  .OR.  ISTOF'  EQ.  'y'  ) 

CO  TO  A 

Else 

STOP 

end:' 

E-SE 
end:' 
a> 8k 
END 


'  Hr 


■  vn*  ' 
i<  »k. 
4  ■  *  • 


i  t  •< 

I  '  t  ^  « 

»  • 


ELSE 
END  IF 
RETURN 
END 
C 

Q  .**.**••«****.*••*•*•.*.••••••••••••*••••****••* 

c 

SUBROUTINE  REED16( I ,NS,NE ,NDSTT . FC,OM) 

C 

c 

6  WR1TE(*,1)  I,NS,NE 


FORMATCSX, 

•FOR 

ACTIVITY 

',12, •  FROM  NODE  ',I3,' 

TO 

NODE  ',13,/ 

S5X, ■ INPUT 

the 

FOLLOWING 

PARAMETERS:',//, 

tSX, 'A. 

FC  : 

FIXED 

COST  FOR  ACTIVITY’ 

/, 

iSX, 'B. 

DM 

CONSTANT 

MULTIPLIER  ON 

DURATION' , 

/, 

isx, 'c. 

NDSTT: 

IT  IS 

THE  TYPE  OF  DISTRIBUTION 

OF 

THE  ',/, 

iSX,  ■ 

COST  ABOUT  <Y*DM>.',/, 

&5x,  ‘ 

FOR 

CONSTANT*DUR., 

NDSTT=1 

*,/, 

iSx,  • 

FOR 

NORMAL  DISTN., 

NDSTT=2 

&5x, ' 

FOR 

UNIFORM  DISTN., 

NDSTT=3 

tsx,  • 

FOR 

TRIANGULAR  DIST., 

NDSTT=4 

',/> 

READ(*,*) 

FC,DM 

,  NDSTT 

IF  (FC.LT. 0.0. OR.DM.lt. 0.0)  GOTO  6 

IF  (NDSTT.LT.1.Ofi.N0STT.GT.4)  GOTO  6 

C 

return 

END 

C 


c 


subroutine  REED1T(I,P1,VMIN,VMAX) 


- 

k«:T£c,')  I 

• 

‘ORMA’(S», 'TYPE 

IN  TnE  values 

OF 

PI',/. 

FOR  the  ACTIVITIY 

NC.  ',12,/ 

t’-TX 

•'Mf  PARAME'ERS  ARE  EXPlAINED 

BELOW: ' .//. 

4''» 

I'IS’RIB.:'  ION 

INDEX  PI 

' .//. 

COWS’' 

^  0.0 

t'-Y 

N OffWA. 

:  VAR 

lix 

jw : ‘o«w 

5  0.? 

i'x 

'  ®  .  AWiiA,lk.  A® 

*  D.C 

4X.X 

■vxx;n  :s  'ne 

WIICWUW  VA.Ut 

0* 

TMf  RAMOOP* 

4ix 

s  s.*.. 

*  0!  '  •  •'F:  8’ 

-  *  i  ^ 

'  ■'f. 

i  < 

:  s  ' 

RANOON 

w  •.  ;  ■  t 

.  S..A.  ’  B* 

’  Hf 

^  e  '  ’  c  R  ■ 

,nut  ,10: 'S  ■  1 

■  vM  li  ,'«*  > 


t>  *;■ 


*  > 


I'M  N 


c 

c 

c 

c 

c 

c 


4 

1 


3 


C 

c 

c 

c 

c 

c 

c 

4 

1 


RETURN 

END 


SUBROUTINE  REED18( I , EC.DM, NDS) 


CHARACTER  ISTOP*1,  0)(»1 
WRITE(*,1) 

FORMAT (5X, 'NEXT  FOR  EACH  PARTITION,  TYPE  IN  THE  FOLLOWING',/, 


45X,'3 

QUANTITIES 

IN  SERIAL  ORDER:',/, 

45X,  ■ 

A.  FC  : 

FIXED  COST  FOR  ACTIVITIES 

IN  THIS  PAR-',/, 

45X,' 

TITION.',/, 

45X,  ■ 

B.  DM 

CONSTANT  MULTIPLIER  ON 

DURATION',/, 

45X,  ■ 

(DURATION*OM  IS  THE  MEAN 

OF  THE  COST',/, 

45X,  ■ 

DISTRIBUTION. ',/, 

45X, ' 

C.  NDS 

IT  IS  THE  TYPE  OF  DISTRIBUTION  OF  THE',/, 

45X,  ■ 

COST  ABOUT  <DM>',/, 

45X,' 

FOR  CONSTANT»DUR., 

N0S=1 ' ,/, 

45X,  ■ 

FOR  NORMAL  DIST., 

NDS=2' ,/, 

45X,' 

FOR  UNIFORM  OISTN., 

NDS=3',/, 

45X,' 

FOR  TRIANGULAR  DIST., 

NDS=4' ,////) 

WRITE!* 

3)  I 

FORMAT(5X, 'TYPE 

IN  THE  VALUES  OF  FC,  DM, 

AND  NDS’,/, 

4SX,'FOR  THE  PARTITION  NO. ',12) 
R£AO<*,*)FC,OM,NOS 

IF(NDS.GT.4.0R.NDS.LT.1)  GOTO  4 

IF(FC.LT. 0.0. OR.OM.lt. 0.0)  GOTO  4 

RETURN 
END 


SUBROUTINE  REED  19(1. PI, VMIN.VMAX) 


WRITE!*, 1)  I 

FOfiMAT(5x, 'TYPE  ;n  n.  if; 

15X,'VMI»(,  VMA»,  'DP  •«!  »,  •  . 

410X,'ThE  PABAmf'tPS  »P!  >  >1'  »  Si 

i5x, 'DISTR:Bl’ ION  «'!>  r 

45x,'  CONS'*'’ 

I5x,'  NOPNA.  .•i 

ISx , '  JN : ‘ OPN  ' 

IS»  ■  'R  AN  ..  Ai 

i' V  '  : '  '  * 

t".!  t  •  . 

i -  I  .N1  I  ~  * :  .  •  . 


i 


i 


»5X,'IT  IS  DECIDED  USUALLY  BY  THE  CRITERION:-'./, 

KX,  •P{Y.GE.VMAX)=0.0005.  • ) 

READ(*,*)  Pl.VMIN.VMAX 

IF  (P1. LT. 0.0. OR.VWIN.lt. 0.0. OR. VMAX.LT.VMIN)  GOTO  4 

RETURN 
END 
C 
C 

C  *•**»****•»**•******•*****•«*•**•***.*•**«***••*•«»***.•*•**** 

c 

SUBROUTINE  CHECK1 ( IT.EX.STDX.VMIN.VMAX.OK, ISTOP) 

C 

C  *****•**••••*••*••••*••••*•*•*•*••*•*•••**•*•****«••*••*•**•• 

c 

CHARACTER  IST0P*1,0<*1 
OX='Y' 

IF(VMIN.LE.O.O.OR.VMAX.LE.VMIN)  THEN 

OK='N' 

ELSE  IF(IT.EQ.3)  THEN 

IF(EX.LE.VMIN.OR.EX.GE.VMAX.OR.STDX.LE.O.O)  THEN 

OK='N' 

ELSE 
END  IF 

ELSE  IF(IT.EQ.4)  THEN 

IF(EX.LE.VMIN.OR.EX.GE.VWAX)  THEN 

OX='N' 

ELSE 
END  IF 

ELSE  IF(IT.EQ.5.0R.IT.EQ.6)  THEN 

IF(EX.LE.O.O.OR.STDX.LE.O.O)  THEN 

OK='N' 

ELSE 
END  IF 

ELSE 
END  IF 
C 

IF(OK.EQ.'H'.OR.OK.EQ.'n')  THEN 

WRITE!*, 1) 

1  FORMAT {5X, 'SOME  OF  THE  VALUES  ARE  OUT  OF  RANGE',/, 

&5X, 'WOULD  YOU  LIKE  TO  INPUT  THE  CORRECTED  VALUES  ?',/, 
&5X,'IF  SO,  TYPE  IN  Y  ',/, 

&5X,'IF  NOT,  TYPE  IN  N  AND  THE  PROGRAM  WILL  STOP.') 
READ!*, 2)  ISTOP 

2  FORMAT(AI) 

ELSE 

ENDIF 

RETURN 

END 

C 

C 

Q  *****4****** ********* ******************************************* 

c 

SUBROUTINE  CHECK2<NS,NE, OK, ISTOP) 
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c 

^  **************************************************************** 

c 

CHARACTER  0K*1.  IST0P*1 
OK='Y' 

IF(NS.LE.O.OR.NE.LE.O.OR.NE.LE.NS)  THEN 

OK='N' 

ELSE 
END  IF 
C 

IFCOK.EQ.'N'.OR.OK.EO.'n')  THEN 

WRITE(*,1) 

1  FORMAT{5X, 'STARTING  AND/OR  ENDING  NODES  IS  INCORRECT',/, 

KX, 'WOULD  YOU  LIKE  TO  INPUT  THE  CORRECT  VALUES  ?',/, 
SSX.'IF  SO,  TYPE  IN  Y  ',/, 

SSX.'IF  NOT,  TYPE  IN  N  AND  THE  PROGRAM  WILL  STOP.') 
READ(*,2)  ISTOP 
■’  FORMAT  (A1) 

ELSE 
END  IF 
RETURN 
END 


SUBROUTINE  CHECK3(NDS,NR,OK, ISTOP) 

C 

C  *•****•••*••***••**•*•**•***•••*••*•*•••*••••*•••*•**•*•*•«••••* 

C 

CHARACTER  OK*1,  ISTOP*1 
OK='Y' 

IF(NDS.LT.1.OR.N0S,GT.7)  THEN 

OK='N' 

ELSE  IF  (NDS.EO.7.AND.NR.EQ.0)  THEN 

OK='N' 

ELSE 
END  IF 
C 

IF(OK.EQ.'N'.OR.OK.EQ.'n')  THEN 

WRITE<*,1) 

1  FORMAT {5X, 'VALUES  OF  DISTRIBUTION  TYPE  AND/OR  ',/, 

45X,'NO.  OF  PAIRS  IS  INCORRECT',/, 

&5X, 'WOULD  YOU  LIKE  TO  INPi'T  THE  CORRECT  VALUES  ?',/, 
&5X,'IF  SO,  TYPE  IN  Y  ',/, 

45X,'IF  NOT,  TYPE  IN  N  AND  THE  PROGRAM  WILL  STOP.') 

READ(»,2)  ISTOP 

2  FORMATCAI) 

ELSE 

END  IF 
RETURN 
END 
C 

94 


9 


TPvnffmqi  mnn'M  wf  M'pjMii«jL«A'.>M 


^jiwfWJiFvminamiiTWTtwiitfwir 


SUBROUTINE 


CHECIC4(NULT,0(C.1ST0P) 


CHARACTER  0K*1,  IST0P»1 
0(C='Y' 

IFCNULT.LE.O)  THEN 

OK='N' 

ELSE 
END  IF 


■) 


IF(OK.EQ.'N'.OR.Ot(.EQ.'n 
WRITE(*,1) 

FORMAT (5X, 'VALUE  OF  NULT  IS 

«X, 'WOULD  YOU  LIKE  TO  INPUT 
iSX.'IF  SO,  TYPE  IN  Y  ',/, 

TYPE  IN  N  AND  THE 
I  STOP 


THEN 


INCORRECT 
THE  CORRECT 


VALUES  ?',/, 


PROGRAM 


WILL  STOP.') 


&5X,'IF  NOT, 

READ(*,2) 

!  FORMAT(Al) 

ELSE 
END  IF 
RETURN 
END 

*•*•*••••••••*•••**•*****••**•*•*••***•••*•****•*•*******•*•*•*•*•*•* 


SUBROUTINE  GNRAT 
RANDOM  ACTIVITY  NETWORK 
IT  IS  OF  TYPE  ACTIVITY 


GENERATOR. 
ON  ARC. 


THE  AN  HAS  N  NODES  AND  M  ARCS. 


•*»»**»••«**•**••**•*******♦***********•***••*»•»»*»»**»**•********♦* 


REAL*8 

COMMON 

COMMON 

COMMON 

DIMENSION 


IX 


/PAR1/N,M,NRR,NCONT,MCS,NSIM,SCAL,NR{100),NT(50) 

/PAR2/NS(100),NE(100),NDSTT{100),R(100,30),PR(100,30) 

/PARS/INO(200),NCF(200),NCS(200>,1IN(60),IOUT(60) 

NAF(60),NBE<60).A(50,50) 


52 

53 


IX-12345.0O0 
WRITE<*,4)N,M 
FORMAT('1',6X,' GENERATE 
M4,'  ARCS') 

DO  53  1*1, N 

DO  52  J*1,N 

A{I,J)*0.0 

CONTINUE 

L«N«(N-1)/2 

N1*N-1 

N2*N-2 

DN*FLOAT(N) 

LM«L-M 

MF=2*N-4 

OL*FLOAT(L)/2. 0*1.0 


AN  ACTIVITY  NETWORK  WITH ',13,' 


NODES  AND', 
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'%‘i 


f  i*4  *'•  r*»  f 


DN2=DN*(DN-1.0) 

DN3=DN+0.5 
1F<DL-M)10, 10,20 

C  THE  DELETION  METHOD 

10  DO  3  1=1, N1 
JJ=I+1 

DO  2  J=JJ,N 

2  A(I,J)=1.0 
IIN(I)=I-1 

3  IOUT(I)=N-I 
IIN(N)=N-1 

48  DO  13  1=1, LM 

11  CALL  RAND{IX,Y) 

Y1=Y*ON2+0.25 

X=0N3-SQRT(Y1) 

NO=IFIX(X) 

IF(NO.GT.X)  NO=NO-1 
IF(IOUT(NO).LT.2)  GO  TO  11 

K=0 

JJ<NO+1 

DO  22  J=JJ,N 

1F(IIN(J).LT.2)  GO  TO  22 

IF(A(NO,J).EQ.0.0)  GO  TO  22 

K=K+1 
NAF(X)=J 

22  CONTINUE 

IF(X.EQ.O)  GO  TO  11 

DEN=1,0/K 

CALL  RAN0(IX,X) 

DO  23  J=1,K 

UP=DEN*J 

IF(X.GT.UP)  GO  TO  23 
NI=NAF(J) 

GO  TO  5 

23  CONTINUE 

5  A(NO,NI}=0.0 

IIN(Nn=IIN(NI)-1 
IOUT(NO)=IOUT(NO)-1 
13  CONTINUE 

GO  TO  50 

C  THE  ADDITION  METHOD 

20  DO  30  1=1, N1 

IOUT(I)=0 
30  IIN(t)=0 

NRC=N-3 
NEM=N-3 
A(1,2)=1.0 
A(N1,N)=1.0 
NARCS=2 
IOUT(1)=1 
IOUT(N1)=1 
IIN{2)=1 
IIN(N)=1 
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IF(MF.GE.M)  GO  TO  40 

KK=0 

CALL  RAND(IX,Y) 

Y1=Y*DN2+0.25 

X=DN3-SQRT(Y1) 

NO=IFIX(X) 

IF(HO.GT.X)  N0=H0-1 

NN=N-NO 

IF(IOUT(NO).GE.NN)  GO  TO  31 

K=0 

JJ=NO+1 

DO  32  J=JJ,N 

IF(A{NO,J).EQ.1.0)  GO  TO  32 

K=X+1 

NAF(K)=J 

CONTINUE 

OEN=1.0/K 

CALL  RANDdX.X) 

UP=0.0 

DO  33  J=1,K 
UP=UP+DEN 

IFLX.GT.UP)  GO  TO  33 
NI>NAF(J) 

GO  TO  34 
CONTINUE 
A(NO,NI)=1.0 
NARCS=NARCS+1 

IF(IOUT(NO).EQ.O)  NEM=NEM-1 

IF(IIN(NI).EQ.O)  NRC=NRC-1 

IIN(NI)=IIN(NI)+1 
IOUT(NO)=IOUT(NO)+1 
IFCNARCS.GE.H)  GO  TO  50 

IF<KK.EQ.1)  GO  TO  31 

MF=H-NARCS-NRC-NEM 
if(mf.gt.O)  go  to  31 

IF(NRC.EQ.O)  GO  TO  45 
K=0 

DO  41  1=3, N1 

if(iin{I).gt.O)  go  to  41 

X*K+1 

NAF(K)=I 

CONTINUE 

IF(X.EQ.O)  GO  TO  45 

DO  42  1=1, K 

IJ=X+1-I 

NI=NAF(IJ} 

CALL  RAND(IX,Y) 

X=1.0+<NI-1)*Y 

NO=IFIX(X) 

IF(NO,GT.X)  NO=NO-1 
A(NO.NI)»1,0 
NARCS=NARCS+1 
nN(Nn  =  IIN(NI)+1 
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I0UT(N0)=10UT(N0)+1 
IF{NEM.EQ.O)  GO  TO  51 
IC=0 

DO  43  1=2, N2 

IFCIOUTcn.GT.O)  GO  TO  43 

K=K+1 

NBE(IC)=I 

CONTINUE 

IF(IC.EQ.O)  GO  TO  51 
DO  44  1=1, K 

NO=NBE(n 
CALL  RAND(IX,X) 

Y=NO«-1+(N-NO)*X 

N1=1FIX(Y) 

IFCNI.GT.Y)  NI=NI-1 

IIN(NI)=1IN(NI)+1 

IOUT{NO)=IOUT(NO)+1 

NARCS=NARCS-^1 

A{NO,NI)=1.0 

XX=1 

IF<NARCS-M)31,50,47 
LM=NARCS-M 
GO  TO  48 


WRITE(»,14)NARCS 
FORMAT (6X, 'THE  AC 

WRITE(»,15) 

FORMAT (/,5X,' 

DO  17  1=1, N1 
JJ=I+1 

DO  16  J=JJ,N 
IF(A(I,J).NE.1.0) 

X=K+1 

NS<X)=I 

NE(K)=J 

WRITE(*,8)K,NS{K),NE(X) 

FORMAT(5X,517) 

CONTINUE 

CONTINUE 


ACTIVITY  NETWORK  HAS  THE  FOLOWING 


I  NS(l)  NE(I)') 


GO  TO  16 


SUBROUTINE  RAND(IX,D) 


DOUBLE  PRECISION  Y, A,P, IX,B15,B16,XHI ,XALO, LEFTLO, FHI ,K 

DATA  A/16807. DO/, B15/32768. DO/, B16/65536. 00/, P/2147483647. DO/ 


XHI=IX/B16 
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XHI=XHI-DHOO(XHI,1.DO) 

XAL0=(IX-XHI*B16)*A 

LEFTL0=XAL0/B16 

LEFTLO=LEFTLO-DMC»(LEFTLO,1.DO) 

FH1=XHI*A+LEFTL0 

X=FHI/B15 

K=K-DMC»(K,1.D0) 

IX=(((XAL0-LEFTL0*B16)-P)+(FHI-K*B15)*B16)+K 

IF(IX.LT.0.D0)IX=1X+P 

Y=!X*4.656612875E-10 

D=REAL(Y) 

IX=1X+1.0 

RETURN 

END 

Q  ********************************************************************* 
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<’-V- V-  A.  !fu 


Appendix  9.2.  Logic  of  Program  AN -COST 
T.  OBTAIN  NECESSARY  NETWORK  INFORMATION 


1.1 

CALL  subroutine  INTRO  containing 

introduction 

and 

user 

information. 

1.2 

Obtain  input  and  output  file  names 

from 

user. 

1.3 

Initialize  variables  to  zero. 

1.4 

Read  in  network/duration/ cost  data 

from 

input 

f  i  le. 

1.5 

Obtain  variable  values  necessary 

for  MCS 

from 

user 

(X  project  cost 

to  receive  at  project  start,  inflation 

rate. 

random 

nimber  seed. 

and  period  length). 

1.6 

Read  in  mean  arxi  std.dev.  values 

of  key 

events 

from 

f  i  le 

TRNS.ANC 

2.  DETERMINE  COST  ALLOCATION  PROPORTIONS 


2.1 


2.2 


CALL  subroutine  SUBNET  to  determine  the  subgraphs 
-find  subnetworks  of  all  key  events 
-remove  activities  from  subnetworks  of  key  event 

of  the  subnetwork  of  key  event  j,  where  j  :  i 


of  key  events. 


i  that  are  members 


CALL  subroutine  SEPARATE  to  determine  allocation 
Prop(l),  of  common  act.'s 
-DO  over  activities 

-IF  comnon  to  more  then  one  key  event  THEN 

-determine  cost  allocation  proportions 

or  user  determined  percentages. 

-IF  user  determined  THEN 

-obtain  percentages  from  user 
-ELSE  IF  probability  method  THEN 

-determine  key  event  with  smallest  mean 
-find  p<i)  =  Pr  t  X(sniallest)  \  X(i)  > 
-IF  p(i)  ''  0.9  "  set  Prop(i)=0.00 

-for  remaining  key  events,  set  wCi)= 


Proportions, 


via  probability 


method 


=Pr{Y 


.  \Y  ,  )* 
1  1 


Pr{Y  .  \Y  ) 
1  N 


2.3 


-continue  DO 
CALL  subroutine 
cost  allocation 

-find  subnetworks 
-remove  activities 
of  the  subnetwork 


-set  Prop(i)  =  w(i)/?  w(i) 

1 

loop  over  activities 
SUBNET  to  update  cost 

proportions. 

of  all  key  events 
from  subnetworks 
of  key  event  j , 


allocation 


matrix 


wi  th 


of  key 
where  j 


event 
:  i 


that  are  members 


-DO 

over  activities 

- 1 F  common 

activity 

THEM 

-update 

matrix 

with  cost  allocation 

proport i ons 

INITIALIZE 

VARIABLES 

FOR  MONTE  CARLO  SIMULATION 

3.1  CALL 

XEXPEC  to 

determine 

mean  and  std.dev. 

of  activities  (pre 

prograrrmed  for 

a  1 1  owed 

density  functions) 

for  use  in  setting 

1  imi  ts 

of  the 

empirical 

distributions. 

the 
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3.2  CALL  INITIALIZE 

•determine  mean  of  cost  distributions 
-DO  over  key  events 

•set  endpoints  of  duration  dist.'s  to  be  -  3  std.dev.'s  from  m 
-allow  user  to  change  endpoints 

-obtain  number  of  cells  in  distributions  from  user 

-set  endpoints  of  cost  dist.'s  to  be  -  a  distance  from  the  mean 

by  some  heuristic 

-allow  user  to  change  endpoints 

-obtain  number  of  cells  in  distributions  from  user 

•obtain  same  info  for  TOTAL  COST  distribution 

3.3  CALL  SAMPLESIZE  to  determine  required  sample  size  for  MCS 

•present  menu  to  either  get  sample  size  info.  or  proceed  with  calc 

-obtain  maxinun  difference  between  sample  df  and  true  df  from  user 

-obtain  confindence  level  from  user 

-determine  sample  size  via  Kolmogorov- Smi rnov  statistic 

•allow  user  to  change  sample  size  if  desired 

PERFORM  MONTE  CARLO  SIMULATION 

•DO  over  number  of  Monte  Carlo  satiples 

•CALL  RNGENERATOR 

-DO  over  activities 

-generate  activity  duration 

•generate  activity  cost 

-CALL  CRITICAL 

-determine  critical  path 

-calculate  early  start  &  early  finish  times 
-calculate  activity  floats 

-DO  over  activities 

•IF  activity  is  on  critical  path  THEN 

•increment  critical  indices  counter 
-determine  realization  times  of  all  key  events 
-CALL  PAYMENTS 

•determine  cash  "outflow"  for  network 
•DO  over  activities 

-DO  over  periods 

•IF  activity  is  "active"  in  period  THEN 
•increment  array  for  MCS 
•continue  over  periods  and  activities 
-add  in  any  fixed  costs  that  activities  have 
-alter  cash  "outflow"  in  accordance  with  inflation  rate 

•determine  cost  of  subgraphs  of  key  events 
•determine  total  project  cost 
•CALL  CDF 

•increment  empirical  distributions  arrays  of  duration  and  cost 

of  key  events  and  total  project  cost 

-increment  mean  and  variance  variables  for  duration  and  cost 
of  key  events  and  total  project  cost  (using  standard  computa- 


■for  mean  and  variance) 


tional  formulas 
•CALL  SHCORR 

-update  correlation  variables  and  regression  variables 
(correlation  and  linear  least  squares  regression  between 
cost  and  duration  of  key  events  and  total  cost  vs.  proj.  ( 
-DO  over  key  events 

•update  sLiri  and  sum  of  squares  of  duration  and  cost 
-update  sum  and  sun  of  squares  of  total  project  cost 
-CALL  INCOME 

-update  variables  keeping  track  of  the  fractions  of  the  tot, 
project  cost  that  the  key  events  comprise 
-DO  over  key  events 

•remove  fraction  of  cost  to  be  received  at  proj.  start 
■determine  fraction  of  cost  of  subgraph  of  key  event 
-update  array  containing  fractions  of  key  events  over 
-CALL  UPPAY 

-update  cash  "inflow"  for  project  for  each  key  event 
-DO  over  key  events 

•determine  the  period  that  the  key  event  was  realized 
-update  variables  for  "inflow"  for  MCS 

Continue  over  DO  loop 


•CALL  DISTMV 

-make  final  calculations  on  empirical  distributions,  meat 

and  variances  of  key  events,  and  criticality  indices  of 
activities  for  MCS 

-CALL  KEINFO 


•output  to  disk  file  empirical  distribution  information  and 
criticality  indices 
-CALL  CORRF 

•make  final  calculations  on  sample  correlation  coefficients 
least  squares  regression  coefficients  for  MCS 


anc 


OUTPUT  *LL  PERTINENT  DATA  TO  FILE  cashflow.dat  FOR  USE  BY  PROGRAM  D 

PRINT  TERMINATION  INFORMATION  AND  STOP  PROGRAM  EXECUTION. 


Appendix 


9.3. 


Program  Listing 


of  AN -COST 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


COST 


28  OCT  86 


BY  RUSSELL 


S.  VOGTHANN 


THIS  PROGRAM 
TECHNIQUE  T 


H  SIMULATES 
TO  DETERMINE 


AN  ACYCLIC 
THE  EMPIRICAL 


NETWORK 


BY  MONTE 


FUNCTIONS 


REALIZATION 


AND  COST  AT  VARIOUS 


KEY  EVENTS 


IN  THE 


AND  EXPECTED 


FLOW  STREAMS. 


FOR  MORE  DETAILS, 


TO  MASTER'S 


BY  RUSSELL 


VOGTMANN. 

PROGRAM 


MORE  DETAILS 
INFORMATION. 


ARE  ALSO  GIVEN  IN  THE  PROGRAM 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


VARIABLES: 


ASCENDC 

AVERG( 


BHATU 


DECENDf 


DURATNC 

EF(I): 

ES(I): 

FRAC( 


FRACTN( 


KEYOURC 


KEYEVNC 


values  of  activity  cost  (does  not  include 


obtained 


Contains  sampled  values  of  activity  cost  (d 
fixed  cost). 

Interest  rate  on  money  deposited. 

List  of  nodes  in  ascending  order. 

Array  containing  the  means  of  the  key  events 
file  TRNS.ANC  after  running  DODIN's  program. 

Interest  reate  on  money  borrowed. 

Intercept  value  in  least  squares  regression 
and  cost  of  key  events. 

Slope  value  in  least  squares  regression  on 
cost  of  key  events. 

Sample  correlation  of  cost  and  duration  of 

List  of  nodes  in  descending  order. 

Desired  percentage  of  profit. 

Array  of  the  observed  density  functions  of 


on  duration 


on  duration 


of  key  events. 


of  the  key  events. 


Array  containing  the  probabilities  associated 

of  discrete  duratioii  densities. 

Array  containing  the  durations  of  discrete  d 
dens i ties. 

Contains  the  sampled  values  of  activity  durat 
The  early  finish  time  of  activity  I  for  a  pa 
The  early  start  time  of  activity  I  for  a  part 
The  fraction  of  project  cost  that  is  attributei 

event  for  one  MC  sample  (this  is  before  the 

taken  out  for  what  we  want  to  receive  at  time 
The  fraction  of  project  cost  that  is  attribute* 

event  for  the  entire  simulation  (this  is  afte 

is  taken  out  for,  STPERC,  the  percentage  that 

time  0). 

Array  that  holds  the  observed  duration  to  ke 
for  each  MCS. 

Array  containing  the  numbers  of  the  key  event 


of  discrete 


values  of  activity  durations. 

of  activity  I  for  a  particular  MC 
of  activity  I  for  a  particular  MCS 
cost  that  is  attributed  to  each 


with  durations 


durat i on 


to  receive 


the  percentage 
time  C ) . 


attributed 
is  after 


to  each  key 
the  percentage 


to  key  events 
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lUIDTHC 

LU  ),RR( 

HEAN(  ): 

NOP(  ): 

NKEYEN: 
NOOEFKI): 
NOOEST(I): 
PAY(  ,  ): 

RATE: 

STDV(  ): 

STPERC: 
SUBCO(  ) : 


Array  containing  the  interval  width  of  the  empirica 
functions  for  the  key  events  and  project  cost. 

Left  and  Right  endpoints  of  the  distributions  o 


width  of  the  empirical  density 
and  project  cost. 

):  Left  and  Right  endpoints  of  the  distributions  of  time  to 

the  key  events. 

Array  containing  the  sample  means  of  the  key  events  and  the 
ke  event  cost. 

Nuitser  of  pairs  of  duration  and  probability  for  discrete 

activity  durations. 

Ntmber  of  key  events. 

The  node  that  an  activity  precedes  to. 

The  node  that  an  activity  emanates  from. 

Array  (nkeyen,mxperd)  containing  the  cost  of  sjog 

each  key  event  during  which  period  it  was  realized 

Retention  Percentage. 

Array  containing  the  standard  deviation's  of  the 
obtained  from  file  TRNS.ANC  after  running  DODIN's 

Percentage  of  project  cost  that  we  want  to  receive 


from. 

the  cost  of  sjograpn  for 

it  was  realized  in. 

ation's  of  the  key  events 

running  DODIN's  program. 

;  want  to  receive  at  time 


c 

SUBHC 

,  ): 

The  matrix  that 

contains 

c 

to  each 

key  event 

c 

SUBNC 

,  ): 

A  dumny 

matrix  used 

in 

c 

SSUM( 

): 

Contains 

the  sum 

of 

the 

c 

to  be  used  in  calculation 

c 

SSUHSQf 

): 

Contains 

the  sum 

of 

the 

c 

key  events. 

c 

SUHXYC 

): 

Contains 

the  sum 

of 

the 

c 

TOURAT: 

Var.  of 

duration 

of 

node 

the  cost  associated 


from  an  activity 


^•TLE:  Title  of  the  project. 

VAR(  ):  Array  of  sample  variances 
XEXP(  ):  Array  containing  the  ex| 
XST0(  ):  Array  containing  the  sti 


junction  with  SUBM. 

rations  and  costs  of  the  key  events 

of  correlation/least  squares  info. 


of  key  events, 
node) . 


ariances  of  key  events  and  tot.  project  cost, 
the  expected  value's  of  the  activity  duration, 
the  standard  dev.'s  of  the  activity  duration. 


P1<  ),P2( 


The  number  of  the  particular  density  of  the  duration  of 
an  activity. 

),P3(  ),PA(  ):  Parameters  of  the  density  functions  of 

activity  durations. 


c 

c 

DRUM 

DENSITY 

PI 

P2 

P3 

P4 

c 

1 

UNI F. CON. 

-- 

L.ENO 

R.END 

c 

2 

TRIANG. 

MODE 

L.END 

R.END 

c 

3 

NORMAL 

MEAN 

VAR. 

L.END 

R.END 

c 

4 

EXPONENTIAL 

MEAN 

c 

5 

GAMMA 

ALPHA1 

ALPHA2 

c 

6 

BETA 

SHAPE! 

SHAPE2 

L.END 

R.END 

c 

c 

7 

DISCRETE 

<<<ORDERED 

PAIRS>>> 

c 

c 

c 

CPDF( 

): 

Character  array 

containing 

the  name 

of  the  act. 

cost 

c 

CDNUMC 

): 

The  number  of 

the  particular 

densi  ty 

of  activity 

cost 

dens  1 ty. 


c 

C  CP1(  ):  Fixed  cost  associated  with  an  activity. 

C  CP2(  ),CP3(  ),CP4(  ),CP5(  ):  Parameters  of  the  cost  functions. 

C 

C 

C  rONUM  DENSITY  CP2  CP3  CP4  CPS 

C  . 

C  1  CONST*Y  CONSTANT 

C  2  NORMAL  MEAN=CP2*0UR .  VAR.  L.LIM  R.LIM 

C  3  UNIFORM  SEE  THESIS 

C  4  TRIANGULAR  M00E=CP2*DUR .  ---  L.LIM  R.LIM 

C  . 

c 

C  --->  FOR  MORE  INFORMATION  ON  COST  FUNCTIONS,  SEE  MASTER'S  THESIS 
C  BY  RUSSELL  S.  VOGTMANN  "PROJECT  BIDDING  UNDER  CHANCE  TIME 

C  ESTIMATES" 

C 

C  MAIN-)- 

C  SUBROUTINES: 


C 

C  CDF:  .  UPDATES  EMPIRICAL  DIST.'S  IN  MONTE  CARLO  SIM. 

C  CRITICAL:  .  DETERMINES  CRITICAL  PATH  IN  MONTE  CARLO  SIM. 

C  DISTMV:  .  DETERMINES  FINAL  VALUES  FOR  EMPIRICAL  DIST.'S  AND 

C  MEAN'S  AND  VAR.'S  AFTER  COMPLETION  OF  M.C.  SIM. 

C  INCOME:  .  UPDATE  VARIABLE  FRACTN  THAT  KEEPS  TRACK  OF  THE 

C  FRACTION  OF  THE  TOTAL  PROJECT  COST  THAT  A  SUBGRAPH 

C  Of  A  KEY  EVENT  IS. 

C  INITIALIZE:  .  DETERMINES  REQUIRED  VALUES  FOR  EMPIRICAL  DIST.'S 

C  INTRO:  .  PRINTS  USER  INFO 

C  KEINFO:  .  OUTPUTS  DATA  ON  EMPIRICAL  DIST.'S  (REAL. TIME  AND  COST) 

C  PAYMENTS:  .  DETERMINES  CASH  "OUTFLOW"  AND  COST  OF  SUBGRAPH'S 

C 

C  RNGENERATOR:  OBTAINS  RANDOM  VALUES  OF  DURATION  AND  COST  DURING 

C  MONTE  CARLO  SIM.  FOR  EACH  ACTIVITY  IN  NETWORK.  THE 

C  FOLLOWING  SUBROUTINES  ARE  CALLED  FROM  RNGENERATOR 

C  --BETA  .  GENERATES  DURATION  FROM  BETA  DISTRIBUTION 

C  --EXPON  .  GENERATES  DURATION  FROM  EXPONENTIAL  DISTRIBUTION 

C  --GAMMA  .  GENERATES  DURATION  FROM  GENERAL  GAMMA  DISTRIBUTION 

C  --RANDOM  .  GENERATES  UNIFORM(0,1)  VALUE 

C  --RCOST  .  GENERATES  COST  FOR  EACH  ACTIVITY  IN  NETWORK  ONCE  GIVEN 

C  THE  ACTIVITIES  DURATION 

C  --RNORMAL  -  GENERATES  VALUE  (DURATION  OR  COST)  FROM  NORMAL  DIST. 

C  --TRIANGULAR  -  GENERATES  VALUE  (DURATION  OR  COST)  FROM  TRIANGULAR  DIST. 

C  --UNICON  .  GENERATES  VALUE  (DURATION  OR  COST)  FROM  UNIFORM  DIST. 

C 

C  SEPARATE:  .  SEPARATES  ACTIVITY  COST  FOR  COMMON  ACTIVITIES  IN  NETWORK 

C  UPPAY:  .  UPDATES  THE  ARRAY  PAY(  ,  )  THAT  TRACKS  THE  CASH 

C  "INFLOW"  OF  THE  PROJECT  (PER  PERIOD) 

C  XEXPEC:  .  DETERMINES  VALUES  OF  EXPECTED  VALUE  AND  STD. DEV.  FOR 

C  ACTIVITIES  IN  NETWORK 

C 

SLARGE 

INTEGER  ASCEND(100),DECEND(100),CYCLE,DNUM(100),LL(22),RR(22), 
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c 


REAL 


DOUBLE 


CDNUM ( 1 00 ) , F  L AGONE , FLAG2 , F  LAGS , CMOOE  L , NOP ( 1 00 ) , 

NCELLS(22),NWEST(100).N0OEFl(100),KEYEVN(10) 

LS(100),LSA(100).LF(100),DN(100),XEXP(100),XSTD(103), 

C1(100),KEYDUR(10},IUIDTH(22>,DF(22,102),SDISBUR(100), 

PAYdO,  100),  PERCENdOO,  10),  ALPHA,  BETA,  RATE,  POWER, 

TWORTH,STPERC,OISTdOO,30),DURAdOO,30),PldOO),P2dOO) 

,P3d00)  ,P4dOO)  ,CP1d00),CP2d00),CP3d00)  ,CP4d00) , 

CPS  d  00) ,  AVERGd  0) ,  STOVd  0  )  ,0URATN  d  00 ) ,  ACOST  d  00 ) , 

ESdOO),EFdOO),EFAdOO),TFdOO),FFdOO),SFdOO), 

SUBNdOO,10),SUBMdOO,10),LPdOO) 

PRECISION  MEAN<22),VAR(22),SUM2(22),SSUM(21),SSL)MSQ(21), 
SUMXYd1),CORRd1),BHATOd1),BHAT1d1), 

FRACTN( 10), PCOST , SUBCO( 1 1 ) 


REAL*8  IX 

CHARACTER*6  FNAHE,OUTP 


CALL  INTRO 


2  FORMAT(25(/)) 

3  FORMAT(5(/)) 

•OPEN  FILE  FOR  INPUT  OF  NETWORK  AND  ACTIVITY  DURATION/COST 

DURATION/COST  DATA' 


WRITEC*,*) 

READ(*,4) 

4  FORMAT (A6) 

OPEN  (UNIT=1,FILE 


•TYPE  FILE  NAME  CONTAINING 
FNAME 


C 

C---OPEN 

C 


=FNAME, STATUS  ='OLD‘) 

FILE  FOR  OUTPUT  OF  GENERAL  INFO. 


C- 


C- 


C- 


GENERAL  OUTPUT' 


*’NEW') 

OF  REAL.  TIME  DIST.'S 
,FORM  *  'FORMATTED', 


WRITE(*,3) 

WRITE(*,*)  'TYPE  FILE  NAME  TO  CONTAIN 
REA0(»,4)  OUTP 

OPEN  <UNIT=3,FILE  =OUTP, STATUS 

-OPEN  FILE  "KEDIST.DAT"  FOR  OUTPUT 

OPEN  <UNIT=4,FILE  =  'XEOIST.DAT' 

*  ACCESS  =  'SEQUENTIAL',  STATUS  =  'NEW') 

-OPEN  FILE  "CASHFLOW.DAT"  FOR  TESTING  ONLY 

OPEN  <UNIT=8,FILE  =  'CASHFLOW.DAT'  , FORM  =  'FORMATTED', 

*  ACCESS  =  'SEQUENTIAL',  STATUS  =  'NEW') 

-OPEN  FILE  "COSTD.DAT"  FOR  OUTPUT  OF  COST  DIST.'S 

OPEN  (UNIT=7,FILE  =  'COSTD.DAT'  ,FORM  =  'FORMATTED', 

*  ACCESS  =  'SEQUENTIAL',  STATUS  =  'NEW') 

-OPEN  FILE  "TRNS.ANC"  FOR  INPUT  OF  MEAN'S  AND  STD.  DEV.'S 

KEY  EVENTS  DETERMINED  FROM  D001TRNS.EXE 

OPEN  (UN  I T=9, F I LE= ' TRNS . ANC ' , STATUS= 'OLD ' ) 


-VARIABLE 


INITIALIZATION 


DO  5  1=1,100 
CI(I)=0.0 
NOP(I)=0 
XEXP(I)=0.0 


OF 


INFO. 
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xsTO(n=o.o 
SDISBUR(I)=0.0 
5  CONTINUE 

DO  6  1=1,22 

DO  7  J=1,102 
MEAN(I)=0.0 
VAR(I)=0.0 
SUM2(I)=0.0 
DF{1,J)=0.0 

7  CONTINUE 
6  CONTINUE 

DO  8  1=1,10 

DO  9  J=1,100 
PAY{I,J)=0.0 
FRACTN(I)=0.0 
9  CONTINUE 

8  CONTINUE 

DO  1  1=1,11 

SUMXY(I)=0.0 
BHATO(I)=0.0 
BHAT1(I)=0.0 
CORR(I)=0.0 
1  CONTINUE 

DO  19  1=1,21 

SSUM(I)=0.0 
SSUMSQ(I)=0.0 
19  CONTINUE 


READ  DATA  FROH  INPUT  FILE 


REAO(1,11)  SCAL,NXES,NACT,NRR,NCONT,HCS,NSIH,NKEYEN,NANG 
11  FORMAT(F5.3,10I5) 

READ  (1,106)  (  XEYEVN(I),  I=1,NKEYEN  ) 

106  FORMAT(UI5) 

DO  10  I=1,NACT 

READ(1,103)  NXEST(I),NXEFI(I),DNUM(I),NOP(I) 

IF  (DNUM(I}.E0.7}  THEN 

READ{1,104)  (DURA(I,J),0IST(I,J),J=1,N0P(I)) 

ELSE 

READ{1,104)  P1(I),P2(I),P3(I),P4(I) 

END  IF 
10  CONTINUE 


DO  90  I=1,NACT 

READ{1,103)  CDNUMCI) 

READ(1,104)  CP1(I),CP2(I),CP3(I),CP4(I),CP5(I) 

90  CONTINUE 


103  FORMAT(UI5) 


104  FORMAT(6E11.4) 


WR1TE(*,2) 

URITE(*,22) 

22  FORMAT (5X, 'YOU  WILL  NOW  BE  ASKED  TO  INPUT  VALUES  THAT  WILL  BE',/, 

*5X, 'USED  IN  THE  COST  CALCULATIONS') 

WRITE(*,3) 

WRITE(*,23) 

23  FORMAT (2X, 'INPUT  PERIOD  LENGTH  (i.e.  5  days,  etc.  --THIS  MUST  BE  I 

•NTEGER  VALUED)',//) 

READC*,*)  CYCLE 
WRITE{3,13)  CYCLE 

13  FORMAT(/1X,'THE  PERIOD  LENGTH  =  *,15) 

111  WRITE(*,3) 

WRITE{*,12) 

READ(*,*)  STPERC 

IF  (STPERC. GT. 100)  THEN 

WRITEC*,*)  'OUT  OF  RANGE  -•  TRY  AGAIN* 

GOTO  111 
END  IF 

WRITEC3,14)  STPERC 

14  FORMAT(/1X,*THE  PERC.  REQUIRED  AT  START  =  ',F6.3) 

STPERC=STPERC/100 

12  FORMATdX,' INPUT  PERCENTAGE  OF  COST  TO  RECEIVE  AT  PROJECT  START') 

112  WRITE(*,3) 

WRITEC*,*)  'INPUT  THE  INFLATION  RATE  (NOT  A  PERCENTAGE)' 

READ(*,*)  GAMMA 

IF  (GAMMA. CT.1)  THEN 

WRITE(»,*)  'OUT  OF  RANGE  --  TRY  AGAIN' 

GOTO  112 
END  IF 

WRITE(3,16)  GAMMA 

16  FORMAT(/1X,'THE  INFLATION  RATE  =  ',F6.5) 

WRITE(*,3) 

WRITE(*,*)  'INPUT  RANDOM  NUMBER  SEED' 

READ(*,*)  IX 

WRITE(3,17)  IX 

17  FORMAT(/1X, 'THE  INITIAL  RANDOM  NUMBER  SEED  =  •,F20.2) 

C 

C--- INPUT  MEAN  AND  VARIANCE  VALUE'S  FROM  FILE  TRNS.ANC 
C 

DO  92  I=1,NKEYEN 

READ(9,104)  AVERG(I),STDV(I) 

92  CONTINUE 

C . 

C  DETERMINE  THE  NXES  IN  ASCENDING  ORDER  FOR  USE  CRITICAL  PATH 

C  CALCULATIONS 

C . 


ASCEND(I) 

a 

i  NOTESTd) 

LOT  *1 

DO  210  I 

= 

1,NACT 

KDT  = 

LOT 

DO  200 

K 

=  1,KDT 

107 


IF  (  NOOEST(I)  .EQ.  ASCEND(K) 

200  CONTINUE 

LOT  =  LOT  +1 

ASCEND (LOT)  =  NOOEST(I) 

155  DO  205  K  =  I.KDT 

IF  (  NOOEFI(I)  .EQ.  ASCEND(K) 

205  CONTINUE 

LOT  *  LOT  +1 
ASCENDLLDT)  =  NODEFI(I) 

210  CONTINUE 

LH  =  LOT  -  1 

DO  215  I  *  I.LH 
M  =  I  ♦  1 
DO  215  K  =  M.LOT 
IF  (  ASCEND(I).LE.ASCENO(K>  } 

KTEMP  =  ASCEND(I) 

ASCEND(I)  =  ASCENOdO 

ASCENOCK)  =  KTEMP 

215  CONTINUE 


)  GO  TO  155 


)  GO  TO  210 


>  GO  TO  215 


NXES  IN  DESCENDING  ORDER  FOR  SAME  PURPOSE  AS  ABOVE 


DO  220  I  =  I.LDT 

DECEND(I)  =  ASCEND(I) 

220  CONTINUE 

DO  225  J  =  1,LM 

L  =  J  +  1 
DO  225  K  *  L,LDT 

IF  (  DECEND(J).GE.0ECEN0(K) 
KTEMP  >  DECENO(J) 

DECEND(J)  =  0ECEND<K) 

OECEND(K)  =  KTEMP 

225  CONTINUE 


>  GO  TO  225 


THE  FOLLOWING  PROGRAM  SECTION  OBTAINS  THE  PERCENTAGES  TO  BE 
USED  IN  SPLITTING  THE  COSTS  OF  THE  COMMON  ACTIVITIES. 

HERE,  I  ASSIGN  A  COST  OF  1  TO  ALL  ACTIVITIES  TO  GET  THE  MATRIX 

THAT  ASSIGNS  THE  COST  OF  THE  ACTIVITIES  TO  THE  VARIOUS  KEY  EVENTS. 

DO  93  I=1,NACT 
ACOST(I)=1 
93  CONTINUE 


c 

1. 

THE 

FIRST 

CALL  TO  SUBNET  DETERMINES  THE  SUBNETWORKS 

ASSOCIATED 

c 

WITH 

ALL 

THE  KEY  EVENTS. 

c 

2. 

THE 

CALL 

TO  SEPARATE  OBTAINS 

THE  PERCENTAGES 

OF  THE 

COMMON  ACT 

c 

TO  ASSIGN 

TO  ITS  KEY  EVENTS. 

c 

3. 

THE 

SECOND 

CALL  TO  SUBNET  THEN 

DETERMINES 

THE  MATRIX 

OF  PERCEN- 

c 

TAGES 

THAT 

ASSIGNS  THE  COSTS 

OF  ACTIVITIES 

TO  KEY  EVENTS. 

CALL  SUBNET(NKEYEN,NACT,KEYEVN,NOOEFI,NC»EST,ACOST, ASCEND, SUBCO, 
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SUBM.PERCEN.FLAGONE) 


C 

C 


c 


FLAGONE=1 

CALL  SEPARATE{SUBM,I,NICEYEN,NC»EST,NOOEFI,KEYEVN,AVERG,STDV, 
PERCEN.NACT.ACOST) 

CALL  SUBNET (NKEYEN , NACT , KEYEVN , NOOEF 1 , NOOEST , ACOST , ASCEND , SUBCO, 

SUBM,PERCEN,FLAGONE) 

CALL  XEXPEC(XEXP,XSTD,NACT.P1,P2,P3,P4,DNUM,D1ST,DURA,N0P) 

CALL  INITIALIZE(NXEYEN,LL,RR.IUIDTH.NMCS. KEYEVN, FLAGONE.AVERG, 

STDV,SUSM,CP1,CP2,NACT,XEXP,XSTD,(XITP,NCELLS) 


C  MONTE  CARLO  SIMULATION  OF  NETWORK 

MXPERO=0 

C 

WRITE(*,3) 

WRITEC*,*)  'BEGIN  MONTE  CARLO  SAMPLING' 

DO  500  ICOUNT=1,NMCS 

IF  (MM(ICOUNT,50).EQ.O)  WRITE!*,*)  ICOUNT 

C 

CALL  RNGENERATOR(NACT,DURATN,DNl#I,P1,P2,P3,P4, ACOST, CDNUM, 

*  CP1,CP2,CP3,CP4,CP5,DIST,DURA,N0P,IX) 

CALL  CRITICAL(NACT, NOOEST, NOOEFI,DURATN,OECEND, ASCEND, LM,LDT, 

*  NKEYEN, KEYEVN, KEYDUR, Cl, ES,EF) 

CALL  PAYMENTS(KEYDUR, NACT, CYCLE, ACOST, DURATN,ES,EF,SDISBUR, 

*  NMCS ,MXPERO , CP1 , GAMMA , SUBCO, SUBM , NKEYEN , PCOST ) 

CALL  CDF(LL,RR, IWIDTH, KEYDUR, DF, NKEYEN, MEAN, SUM2, SUBCO, PCOST) 

CALL  SMCORR (PCOST , SUBCO, KEYDUR , NKEYEN , SSUM , SSUMSO , SUMXY ) 

CALL  I NCOME (NKEYEN , SUBCO, PCOST , STPERC, FRACTN , NMCS ) 

CALL  UPPAY(KEYDUR, PAY, MXPERO, CYCLE, NMCS, NKEYEN, SUBCO, CAPITL) 

C 

500  CONTINUE 

WRITE!*,*)  'MONTE  CARLO  SAMPLING  COMPLETE' 

C 


c- 

--THE 

NEXT 

TWO 

CALLS  (DISTMV 

& 

KEINFO) 

FINISHES 

THE 

CALCULA- 

c- 

--TIONS 

ON 

THE 

ARRAY  DF  AMD 

ON 

THE  MEAN, 

VAR., 

AND 

Cl,  THEN 

c- 

--THE 

INFO. 

TO 

AN  EXTERNAL 

DATA 

FILE. 

C 

CALL  DISTMV(DF,MEAN,SUM2,VAR,NKEYEN,NMCS,CI ,NACT) 

CALL  KE INFO(DF, MEAN, VAR, NKEYEN, LL,RR, IWIDTH, Cl. NACT, KEYEVN) 

C 

C---THE  NEXT  CALL  TO  CORRF  FINISHES  THE  CALCULATIONS  ON  THE 
C-- -CORRELATIONS  BETWEEN  KEY  EVENT  DURATION  AND  COST,  AS  WELL 

C-- -CALCULATIONS  ON  THE  LEAST  SQUARES  FIT. 

C---L.S.  EQUATION  ==>  COST  =  BHATO  ♦  BHAT1*DURATION 

CALL  CORRF(NKEYEN, NMCS, SSUM, SSUMSQ, SUMXY, CORR, BHATO, BHAT1) 

C 


C++++++++++++++++++++++++++++++++++++++++++-f++*+*+t++++ ++♦♦++++ ♦+♦♦♦♦♦++ 
C  MONTE  CARLO  SIMULATION  ENOS 

C+ +++++++++++++++++++++++++++++++++++++++++*+++++++4**+ +♦++♦+ +++++++++++ 

c 


SENDS 


SAMPLE 
AS  THE 
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•■OUTPUTTING  CASH  FLOW  AND  OTHER  PERTINENT 

"CASHFLOW.DAT"  FOR  LATER  USE 

WRITE(8,650)  CYCLE 

WRITE(8,650)  MXPERD 

WRITE(8,651)  (SOISBURd),  1=1, MXPERD) 

URITE(8,650)  NKEYEN 

WRITE(8,650)  (KEYEVNd  ),  1  =  1  .NKEYEN) 

DO  501  J=1, NKEYEN 

WRITE(8,651)  (PAY(J, I), 1=1, MXPERD) 

501  CONTINUE 

URITE(8,651)  STPERC.CAPITL 

DO  502  J=1, NKEYEN 


VALUES  TO  FILE 


WRITE(8,651) 
WRITE(8,651) 
502  CONTINUE 

WRITE(8,651) 

650  FORMAT{10I5) 

651  FORMAT (5E 13. 7) 


MEAN<J),SQRT(VAR{J)) 

MEAN{J+10),SQRT(VAR(J+10)) 

MEAN(22),SQRT(VAR(22)) 


DO  660  1=1, NKEYEN 

WRITE(8,690)  LL(I ),RR( I ),NCELLS(I ), IWIDTHC I ) 

WRITE(8,651)  (DF(I,J),J=1,NCELLS{I)+2) 

WRITE(8,690)  LL( 1+10), RR{ 1+10), NCELLST 1+10), IWIDTHC 1+10) 

WRITE<8,651)  <DF(1+10,J),J=1,NCELLS(1+10)+2) 

660  CONTINUE 

WRITE(8,690)  LL(22),RR(22),NCELLS(22),IWIDTH{22) 

WR1TEC8,651)  (DF(22, J), J«1 ,NCELLS(22)+2) 

690  FORMAT<I10,110,I10,F15.5) 

DO  665  1=1,  NKEYEN 

WRITE(8,651)  CORR(I),BHATO(I),BHAT1(I> 

665  CONTINUE 

WRITE(8,651)  CORR(11),BHATO(11),BHAT1(11) 

DO  666  1=1, NKEYEN 

WRITE(8,651)  FRACTN(I) 

666  CONTINUE 


■TERMINATION 


COMMENTS  TO  SCREEN 


WRITE<*,2) 

WRITE(*,653) 

FORMAT(/1X, 'PROGRAM  AN^COST.EXE 

*10X,'1.  OUTPUT  INFORMATION',/, 
•10X,'2.  EXIT  PROGRAM',//, 

•5X, 'ENTER  CHOICE',//) 

READC*,*)  ICHOICE 

IF  (ICH0ICE.LT.1.0R.ICH0ICE.GT.2) 
WRITEC*,*)  'OUT  OF  RANGE 
GOTO  655 
ENDIF 

IF  (ICHOICE. EQ.1)  CALL  OUTHELP 


IS  TERMINATING 


EXITING 


PROGRAM ' 


wN  . 


CALL  OUTHELP 


655  STOP 
END 


c 

SUBROUTINE 

C 

D  F 

c 

THIS 

SUBROUTINE 

INCREMENTS 

THE 

DIST. 

FUNC. 

c 

THE  KEY 

EVENTS 

AND 

PROJECT  COST . 

IT  ALSO 

TRACKS 

c 

DETERMINE 

THE 

MEAN 

AND  VARIANCE 

OF 

THE  REALIZATION 

c 

c 

THE  KEY 

EVENTS, 

AS 

UELL  AS  FOR 

THE 

PROJECT 

COST. 

c 

SUBROUTINE 

CDF 

(LL.RR.IUIDTH.KEYDUR.DF 

.NKEYEN.MEAN,: 

SUM2, 

* 

SUBCO, PCOST) 

INTEGER 

LL(22), 

RR(22), 

,NKEYEN 

ARRAYS  FOR 
VALUES  TO 
TIME  OF 


REAL 

DOUBLE 


IUIDTH(22),KEYDUR(10).OF(22,102) 

PRECISION  ME AN (22) , SUM2{ 22) , PCOST , SUBCO( 1 1 ) 


C 

C---THIS  <00>  LOOP  INCREMENTS  THE  ARRAY  DF  FOR  ALL  KEY  EVENTS. 
C 


DO  7000  K=1,NKEYEN 

XX=(KEYDUR(K)-LL(K))/IUIDTH(K) 

IF  (XX-INT(XX).EQ.O.O)  THEN 

MARK=INT(XX)+1 
ELSE 

MARK=lNT(XX)+2 
END  IF 

IF  (MARK.LE.O)  MARKET 

IF  (KEYDUR(K).GT.RR(K))  MARK=lNT((RR(K)-LL(K))/IUIDTH(K))+2 

DF(K,MARK)=DF(K,MARK)+1 
7000  CONTINUE 


C 

C---NOU  INCREMENT  FOR  COST  OF  SUBGRAPHS  OF  KEY  EVENTS 
C 

DO  7020  K=11,NKEYEN*10 

XX=(SUBCO<K-10)-LL(K))/IUIDTH<K) 

IF  {XX- INT(XX).EQ.O.O)  THEN 

MARK=INT<XX)+1 
ELSE 

MARK=INT(XX)-»2 
END  IF 

IF  (MARK.LE.O)  MARKET 

IF  (SUBCO(K-IO).GT.RR(K))  MARK=lNT((RR(K)-LL(K))/IWIDTH(K))+2 

OF(K,MARK)=OF(K,MARK)+1 
7020  CONTINUE 
C 

C---NOW  FOR  THE  TOTAL  PROJECT  COST 
C 


XX*(PCOST-LL{22))/IWIDTH(22) 

IF  {XX-INT(KX).EO.O.O)  THEN 


in 


MARK=INT(XX)+1 

ELSE 

MARX=INT(XX)+2 
END  IF 

IF  (HARK.LE.O)  HARK=1 
IF  (PCOST.GT.RR(22))  THEN 

MARK=INT({RR(22)-LL(22))/IUIDTH(22))*2 
END  IF 

DF{22,MARK)=DF(22.MARK)*1 

C 

C--- -UPDATING  MEAN  AND  VARIANCE  COUNTERS  ON  DURATION  AND  COST 

C 

DO  7005  K=1,NXEyEN 

MEAN ( K ) =ME AN ( K }+KEyDUR ( K ) 

SUM2(X)=SUM2(K)+KEyDUR(K)*KEyDUR(K) 

MEAN { K+1 0 )=ME AN ( X+ 1 0 )+SUBCO( K ) 

SUM2(K+10)=SUM2(K+10)*SUBCO(K)*SUBCO(X) 

7005  CONTINUE 
C 

C-- -UPDATE  MEAN  AND  VAR.  COUNTERS  FOR  PROJECT  COST 
C 

ME AN ( 22 ) =MEAN ( 22 )+PCOST 
SUM2(22)=SUM2(22)+PCOST*PCOST 
C 

RETURN 

END 

C . 

c 

C  SUBROUTINE  C  0  R  R  F 

C 

C  THIS  SUBROUTINE  COMPLETES  THE  CALCULATIONS  FOR  SAMPLE  CORRELATION 

C  AND  THE  LEAST  SQUARES  ESTIMATORS. 

C 

C . 

c 

SUBROUTINE  CORRF(NKEYEN,NMCS,SSUM,SSWSQ,SUMXY,CORR,BHATO,BHAT1 ) 

C 

INTEGER  NXEYEN.NMCS 

DOUBLE  PRECISION  SSUM(21 ) ,SSUMSQ(21 ),SUMXY( 1 1 ) , RNUM,DEN,CORR( 1 1 ) , 

*  BHAT0(11),BHAT1(11) 

C 

C-- -DETERMINE  SAMPLE  CORRELATION 

C 

RNUM=0. 

DEN<0. 

DO  3700  I=1,NKEYEN 
RNUM=NMCS*SUMXY( I ) -SSUM( I )*SSUM< 1+10) 

DEN=(NMCS*SSUMSQ(I)SSUM(I)**2)*(NMCS*SSUMSQ(I+10)-SSUM(I+10)**2) 

IF  (DEN.EO.O.)  THEN 
C0RR(I)=-9999 
ELSE 

CORR( I )=RNUM/SQRT(DEN) 

END  IF 


5700  CONTINUE 


RNUM=NMCS*SUHXY (11)- SSUM{ NKEYEN )*SSUM(21 ) 

DEN=(NMCS*SSUMSQ{NKEYEN ) - SSUM(NKEYEN )**2)*(NMCS*SSUHSQ( 21 ) - SSUM( 21 
*)**2) 


C  IF  DEN  EQUALS  ZERO,  THE  NETWORK  IS  DETERMINISTIC  AND  CORR  MAKES  NO  SENSE 


IF  (DEN.EQ.O.)  THEN 
C0RR(11)=-9999 
ELSE 

CORR { 1 1 )=RNUM/SORT (DEN ) 


C-- -DETERMINE 


THE  ESTIMATORS  OF  THE  LEAST  SQUARES  FIT 


DO  3710  I=1,NKEYEN 

RNUM=NMCS»SUMXY( I ) - SSUM( I )*SSUM( 1+10) 
DEN=NMCS»SSUMSQ(I )-SSUM(I )*»2 
IF  (DEN.EQ.O.)  THEN 
BHAT1(I)=-9999 
ELSE 

BHAT1(I)=RNUM/DEN 


RNUM*SSUMSQ(I)*SSUM(I+10)-SSUM(I)*SUMXY(I) 
IF  (DEN.EQ.O.)  THEN 
BHAT0(I)=-9999 
ELSE 

BHATO(I)=RNUM/DEN 


END  IF 

3710  CONTINUE 


RNUM=NHCS*SUMXY( 11)- SSUM(NKEYEN )»SSUM(21 ) 
DEN=NMCS*SSLIMSQ(NKEYEN)-SSUM(NKEYEN)**2 
IF  (DEN.EQ.O.)  THEN 

BHAT1(11)=-9999 
ELSE 

BHAT1(11)=RNUM/DEN 
END  IF 

RNUM=SSUMSQ(NKEYEN )*SSUM(21 )- SSUM(NKEYEN)»SUMXY( 1 1 ) 
IF  (DEN.EQ.O.)  THEN 

BHAT0(11)=-9999 
ELSE 

BHAT0(11)=RNUM/DEH 


SUBROUTINE  CRITICAL 
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c 

C  THIS  SUBROUTINE  DETERMINES  THE  CRITICAL  PATH, INCREMENT ING 

C  THE  CRITICAL  INDICES,  AND  DETERMINES  THE  REALIZATION  TIMES 

C  OF  THE  KEY  EVENTS. 

C . 

C 

SUBROUTINE  CRITICAL  (NACT,NOOEST,NODEFI ,DURATN,DECEND, ASCEND, 

*  LM.LDT,NKEYEN,KEYEVN,KEYDUR,CI ,ES,EF) 

INTEGER  NACT,NOOEST(100),NOOEFI(100),ASCEND(100>,DECEND(100),LM, 

*  LDT.NKEYEN.KEYEVNdO) 

REAL  DURATN(100),KEYDUR(10),ES(100),LS(100),EFC100),LF(100) 

*  ,TF(100),FF(100),SF{100).EFA(100),LSA(100),CI(100) 

REAL  TDURAT 

C 

C 

C  CALCULATE  EARLY  START  &  EARLY  FINISH 

C 

DO  230  I  =  1,NACT 

IF  (  NODEST(I).NE.ASCENO(1)  )  GO  TO  230 

ESd)  =  0. 

EF(I)  =  ESd)  ♦  DURATNd) 

230  CONTINUE 
C 

LM  =  LDT  -1 

DO  235  J  =  2,LM 
BIG  -  0. 

DO  240  I  *  I.NACT 

IF  (  NOOEFId).NE.ASCENO(J)  )  GO  TO  240 

IF  (  EFCD.LE.  BIG  )  GO  TO  240 

BIG  =  EFd) 

240  CONTINUE 

DO  245  I  «  1,NACT 

IF  (  NOOESTd).NE.ASCEND(J)  )  GO  TO  245 

ESCI)  =  BIG 

EFd)  =  ESd)  +  DURATNd) 

245  CONTINUE 

235  CONTINUE 
C 

TDURAT  »  0.0 

DO  250  I  X  1,NACT 

IF  {  NaEFId).NE.ASCEND(LOT)  )  GO  TO  250 

IF  (  EFCD.LE. TDURAT  )  GO  TO  250 

TDURAT  X  EFCI) 

250  CONTINUE 
C 

C-- -CALCULATE  LATE  START  AND  LATE  FINISH 

C 

DO  255  I  X  1,nACT 

IF  (  NOOEFId).NE.DECEND(l)  )  GO  TO  255 

LFCI)  X  TDURAT 

LSCI)  X  TDURAT  •  DURATNd) 

255  CONTINUE 
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C 


rwufiww  H  If  l»-aiww.iVJfi  w  ^  yj  ^  wiijy^  w^^:i^'Vkry>wpri^’y.’^’^'^,.Ti»7Wjiii7;i  ,vi; 


si 

n1 


265 


DO  260  J  =  2,LM 
SMALL  =  2U7483647. 

DO  265  I  =  1,NACT 

IF  {  NOOEST{I).NE.DECEND(J) 

IF  {  LSCD.GE.SMALL  )  GO  TO 

SMALL  =  LSd) 

CONTINUE 

DO  270  I  =  I.NACT 

IF  (  NOOEFKD.NE.DECENDCJ) 

LF(I)  =  SMALL 

=  LF(I) 


270 

260 


LSd) 

CONTINUE 

CONTINUE 


DURATNd) 


C-- -CALCULATE 
C 


FLOATS 


280 


266 


DO  271  I  =  I.NACT 
DO  266  J  =  I.NACT 

IF  (  NOOEFId).NE.OECENO(l) 
EFAd)  =  TDURAT 

GO  TO  266 

IF  (  NOOEFId).NE.NOOEST(J) 
EFAd)  =  ES(J) 

CONT I NUE 


)  GO  TO  265 
265 


)  GO  TO  270 


DO  275 

J  =  I.NACT 

IF  ( 

NOOESTd).NE.ASCEND(l) 

) 

LSAd)= 

=0 

GO  TO 

275 

285 

IF  ( 

NODESTd).NE.NOOEtt(J) 

) 

LSAd) 

=  LF(J) 

275 

CONTINUE 

TFCI) 

LFd)  -  ESCI) 

DURATNd) 

FF<I) 

EFAd)  -  ESd) 

DURATNd) 

SFCI) 

LFd)  -  LSAd) 

DURATNd) 

271 

CONTINUE 

)  GO  TO  280 


)  GO  TO  266 


TO  285 


TO  275 


>3 

>3 

4 

'>1 


v: 


3 

.%■ 

,v' 


'■V 

'•V 


> 


c 

C--- INCREMENT  CRITICAL  INDICES 

C 

DO  290  I  =  I.NACT 

IF  (TFd).LT. 0.00001)  Cl  (I  )=CI  (I  )+1 .0 

290  CONTINUE 
C 

C-- -DETERMINE  REALIZATION  TIME  OF  KEY  EVENTS 

C 

DO  292  K=1.NKEYEN-1 
DO  293  I = I.NACT 

IF  {KEYEVN(K).NE.NOOESTd))  GO  TO  293 

KEYDUR(K)=ESd) 

GO  TO  292 
293  CONT I NUE 
292  CONTINUE 
C 

C---SET  REAL.  TIME  OF  END-NODE  TO  TDURAT 
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ICEYDUR{N<EYEN)=TDURAT 


C 

RETURN 

END 

. . 

c 

C  SUBROUTINE  D  I  S  T  M  V 

C 

C  THIS  SUBROUTINE  MORHALI2ES  THE  VALUES  IN  OF  AS  WELL 

C  MAKING  THE  FINAL  CALCULATIONS  OF  THE  MEAN  AND  VARIANCE 

C  THE  REALIZATION  TIME  OF  KEY  EVENTS. 

C 

. . 

C 

SUBROUT  I NE  D I STMVCDF , MEAN , SUM2, VAR , NKEYEN , NMCS, C I , NACT ) 

INTEGER  NKEYEN, NMCS, NACT 

REAL  0F(22,102),CI(100) 

DOUBLE  PRECISION  MEAN(22) , SUM2(22) , VAR(22) 

C 

00  3000  J1=1, NKEYEN 

DO  3005  J2=:1,102 

DF(J1,J2)=DF(J1,j2)/NMCS 

DF(J1+10,J2)=DF<J1*10,J2)/NMCS 

3005  CONTINUE 

3000  CONTINUE 

C 

DO  3006  J2=1,102 

DF(22,J2)*DF(22,J2)/nmcS 

3006  CONTINUE 
C 


C" 

■  -  MAKE 

FINAL 

CALCULATIONS 

ON  MEAN  AND  VARIANCE 

OF  REALIZATION 

c- 

Q 

-TIMES 

AND 

COST  OF  KEY 

EVENTS. 

DO 

3007 

Jl=1, NKEYEN 

VAR(J1)=(NMCS*SUM2(J1)-MEAN(J1)*MEAN(J1))/(NMCS*NMCSNMCS) 

MEAN(J1)=MEAN(J1)/NMCS 

VAR(J1-H0)  =  (NMCS*SUM2(J1  +  10)-MEAN(JU10)»MEAN(JU10))/ 

•  (NMCS*NMCS-NMCS) 

MEANT J1+10)=MEAN(J1+10)/NMCS 

3007  CONTINUE 
C 

C-- -FINAL  CALC.'S  ON  MEAN  AND  VAR.  ON  TOT.  PROJECT  COST 
C 

VARC22)=(NMCS*SUM2(22)-MEAN(22)*HEAN<22))/(NMCS*NMCS-NMCS) 

MEAN(22)=MEAN(22)/NMCS 

c 

DO  3008  J1=1,NACT 
CI(J1)=CI(J1)/NMCS 

3008  CONTINUE 
C 

c 

RETURN 


END 


C . 

c 

C  SUBROUTINE  INCOME 

C 

C  TAKE  OUT  THE  PERCENTAGE  OF  COST  PREDETERMINED  TO  RECEIVE  AT 

C  BEGINNING  OF  PROJECT,  AND  UPDATE  OVERALL  PROJECT  COST  FRACTIONS. 

C 

C . 

C 

SUBROUT  I NE  I NCOME ( NKEYEN , SUBCO, PCOST , STPERC, FRACTN , NHCS ) 

C 

INTEGER  NKEYEN, NMCS 
REAL  STPERC 

DOUBLE  PRECISION  FRACTN( 10) , FRACC 10) , SUBCO( 1 1 ) , PCOST 

C 

DO  3510  1=1, NKEYEN 

FRAC(I)=SUBCO<I)/PCOST 
3510  CONTINUE 
C 

SUBCO(NKEYEN+1 )=STPERC‘PCOST 
DO  3520  1=1, NKEYEN 

SUBCO( I )=FRAC( I )*(PCOST*(1 -STPERC)) 

FRAC(I)=SUBCO(I)/PCOST 
FRACTNL I  )  =  FRACTN( I )+FRAC( I )/NMCS 
3520  CONTINUE 
C 

RETURN 

END 

C . 

c 

C  SUBROUTINE  INITIALIZE 

C 

C  THIS  SUBROUTINE  OBTAINS  THE  NECESSARY  INFO.  FOR  THE 

C  DISTRIBUTION  FUNCTIONS  USED  DURING  THE  MONTE  CARLO  SIM. 

C 

C  --THE  DIST.  FUNCTIONS  CONTAIN  AT  MOST  ONE  HUNDRED  INTERVALS. 

C 

C  -•-DF(--,102)  •  ARRAY  CONTAINING  THE  EMPIRICAL  DIST.  FUNC. 

C  ---LLL--)  •  LEFT  ENDPOINT  OF  A  DIST.  FUNC. 

C  ---RRC--)  •  RIGHT  ••  "  "  "  " 

C  -■•IWIDTHC--)  -  INTERVAL  WIDTH  OF  THE  DIST.  FUNC. 

C 

C . 

C 

SUBROUTINE  INITIALIZE  (NKEYEN, LL , RR, IWIDTH , NMCS, KEYEVN , FLAGONE , 

*  AVERG,Sir,v,SUBM,CPl,CP2,NACT,XEXP,XSTD, 

*  0UTP,NCELLS) 

C 

INTEGER  K, LL (22), RR(22), KEYEVN( 10), FLAGONE, NCELLS(22) 

REAL  IWIDTH(22),AVERG(10),STDV(10),CP2(100),CP1(100), 

*  SUBM(100,10),XEXP(100),XSTD(100) 

CHARACTER*)  DCHAR 
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CHARACTER*6 


CMEAN(10),CVAR(10) 


C-- -DETERMINE 


DISTRIBUTIONS 


CTOT=0.0 

CTVAR=0.0 

DO  82  I=1,NKETEN 
CMEAN(I)=0.0 
CVAR{I)=0.0 
CONTINUE 

DO  8050  I  =  1,NtCEYEN 

DO  8051  11=1, NACT 

CMEAN ( I )=CHEAN{ I )+SUBM( 11,1 )*XEXP( 1 1 )»CP2( 1 1 ) 

CMEAN ( I )=CMEAN( I )+SUBM( 11,1 )*CP1 (II) 

CVAR{ I )=CVAR( I )+SUBM( 11,1 )»XSTD( 1 1 )»XSTD( 1 1 )»CP2( 1 1 ) 
CONTINUE 
CONTINUE 


DO  8054  I=1,NXEYEN 

IF  (CVARCD.LE.O.O) 
CONTINUE 

DO  8052  I=1,NKEYEN 

CTOT=CTOT+CMEAN(I) 
CTVAR=CTVAR+CVAR(I) 
CONTINUE 

IF  (CTVAR.LE.0.0) 

T  INFO  ON  EMPIRICAL 

WRITE  (*,8081) 

WRITE  (*,8081) 

WRITE  (*,8080) 

WRITE  (*,8081) 
FORMAT(///1X, 'THE 
*5X,'TIME  OF  THE  XE 
FORMAT(2(/),'  ■) 


CVAR(I)=0.0 


CTVAR=0.0 


DIST.'S 


EMPIRICAL 


DENSITY  FUNCTION'S  OF  REALIZATION',/, 
WILL  ASSUME  THE  FOLLOWING  ENDPOINTS') 


DO  8000  K=1,NKEYEN 

WRITE  (*,8090)  KEYEVN(K) 

LL(K)=INT(AVERG(K)-3*STDV(K)) 

RR(X)=INT(AVERG(K)+3*STDV(K)) 

IF  (LL(K).EQ.RR(K))  THE 

LL(K)=LL(K)-W 
RR(K)=RR(K)+10 


IF  (LL(K).LT.O.O) 
WRITE  (*,8091) 
FORMAT (//IX, 'LOWER 
FORMAT(/10X,I10,5X,I10) 
WRITE  (*,8070) 


LL(K)=0.0 
LL(K),RR(K) 
AND  UPPER 


ENDPOINTS 


ARE:  ' ) 


REAO(*,8074>  DCHAR 

8070  FORMAT(/5X, 'Are  These  Values  Acceptable?  (Y  or  N)') 

8074  FORMAT(AI) 

IF  (DCHAR. EQ.'N'. OR. DCHAR. EO.'n')  THEN 

WRITE(*,8071) 

8071  FORMAT(/5X, 'THEN  INPUT  YOUR  OWN  VALUES  (LOWER  END  THEN  UPPER)') 

READ(*,*)  LL(K),RR(K) 

END  IF 
C 

8010  WRITE  (*,8081) 

WRITE  (*,8093)  KEYEVN(K) 

READ  (*,*)  NCELLS(X) 

XINUH=NCELLS(K) 

IWIDTH(K)=(RR(X)-LL(K))/XINUM 

8093  FORMAT (/IX, 'HOW  MANY  INVTERVALS  FOR  DIST.  OF  KEY  EVENT', 14,/, 

i3X, recommended  value  is  no  more  than  20',/) 

IF  (XINUM.GT.100)  THEN 

WRITE  (*,8095) 

GO  TO  8010 
END  IF 
C 

C---NOW  FOR  COST  DISTRIBUTIONS  OF  KEY  EVENTS 

C 

WRITE  (*,8040)  KEYEVN(K) 

LL(K+10)=INT(CMEAN(K)-18*SQRT(CVAR(K))) 

RR(K+10)=INT(CMEAN(K)+18*SQRT(CVAR(K))) 

IF  (LL(K+10).EQ.RR(K+10))  THEN 

LL(K+10)=LL(K+10)-10 
RR(K+10)=RR(K+10)+10 
END  IF 

IF  (LL(K+10).LT.0)  LL(K*10)=0 

WRITE(*,8091)  LL(K+10),RR(K+10) 

8040  FORMAT(///1X, 'ENDPOINTS  FOR  COST  DIST.  OF  KEY  EVENT  ',14,'  ARE') 

WRITE(*,8070) 

READ(*,8074)  DCHAR 

IF  (DCHAR. EQ.'N'. OR. DCHAR. EQ.’n')  THEN 

WRITE(*,8071) 

READ(*,*)  LL(K+10),RR(K+10) 

END  IF 
C 

8045  WRITE  (*,8081) 

WRITE  (*,8043)  KEYEVN(K) 

READ  (*,*)  NCELLS(K+10) 

XINUM=NCELLS(K+10) 

IWIDTH(K+10)=(RR(K+10)-LL(K+10))/XINUM 

8043  FORMAT(/1X, 'HOW  MANY  INVTERVALS  FOR  COST  OF  KEY  EVENT ',14,/, 

i3X, ' • -recomnended  value  is  no  more  than  20',/) 

IF  (XINUM.GT.100)  THEN 

WRITE  (*,8095) 

GO  TO  8045 
END  IF 

8095  FORMATCTOO  MANY  INTERVALS  (100MAX!).  TRY  AGAIN.') 


WfWHHWW 


wwmwfwwCT 


8000  CONTINUE 


C--- INPUT 
C 


INFO.  FOR  DIST.  OF  PROJECT  COST  (TOTAL). 


8072 


WRITE(*,8081) 

WRITE(*,8072) 

F0RMAT(//5X, 'LOWER  AND  UPPER 

LL(22)=INT(CT0T-18*S0RT(CTVAR)) 

RR ( 22 )= I  NT ( CTOT+1 8*SQRT { CTVAR ) ) 

IF  (LL(22).LT.O)  LL(22)=0 

IF  (LL(22).EQ.RR(22))  THEN 

LL(22)=LL(22)-10 
RR{22)=RR(22)+10 
END  IF 

WRITE(*,8091)  LL<22),RR<22) 

WRITE (*,8070) 

READ (*,8074)  DCHAR 

IF  (DCHAR. EQ. 'N' .OR. DCHAR. EQ. 'n' ) 
WRITE (*,8071) 

READC,*)  LL(22),RR(22) 


ENDPOINTS 


FOR  TOTAL  COST  DIST.:') 


THEN 


END  IF 


8020 


WRITE(*,8081) 

WRITE(*,*) 

WRITE(*,*) 

READ(»,*)  NCELLS(22) 
XINUM=NCELLS(22) 

IWIDTH(22)*(RR(22)-LL(22))/XINUM 


'HOW  MANY  INTERVALS  FOR  THE  PROJECT  COST  DIST.?' 
'  --recommended  value  is  no  more  than  20' 


IF  (XINUM.GT.100) 
WRITE  (*,8095) 
GO  TO  8020 
ENDIF 


THEN 


C 

C- 

C 


-ECHO 


THE  DISTRIBUTION 


LEFT-END 


8015 


8096 

8098 


WRITEO,*)  'VALUES 

WRITE(3,8098) 

WRITE(3,*)  ' 

DO  8015  X=1,NKEYEN 

WRITE(3,16)  KEYEVN(K) 

WRITE(3,*) 

WRITE(3,8096) 

WRITE(3,*) 

WRITE(3,8096) 

WRITE(3,8098) 

CONTINUE 

WRITE(3,*)  'TOTAL  PROJECT  COST' 

WRITE(3,8096)  LL(22) ,RR(22), IWI0TH(22) 

16  FORMATdX, 'XEY  EVENT  ',15) 

FORMAT(10X,I10,5X,I10,3X,F10.2) 

FORMAT!/) 


VALUES  TO  THE  GENERAL  OUTPUT  FILE 
OF  ENDPOINTS 


FOR  EMPIRICAL 


DIST.  'S 


ARE:' 


RIGHT-END 


INT. -WIDTH' 


REAL.  TIME  DIST.' 
LL(X),RR(K),IWIDTH(K) 

COST  FUNC.' 

LL(K-'10),RR(K+10).IWIDTH(K+10) 


CALL  SAMPLESI2E(NMCS) 
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.*•1 


I 

.V 

,v' 

.s' 


c 

C----1NITIALIZE 


FLAGONE-- 


FLAGONE=0 


SUBROUTINE  INTRO 


THIS  SUBROUTINE  WRITES  INTRO.  INFORMATION 


ON  THE  PROGRAM  AN -COST 


THE  SCREEN 


SUBROUTINE  INTRO 


WRITE(*,10) 
FORMAT ( 25 (/)) 
WRITE(*,1) 


URITE(*,10) 

URITE(*,20) 

FORMATdOX/l.  GENERAL 

&10X,'2.  CONTINUE  UI 
&5X, 'ENTER  CHOICE',//) 

REAO(*,*)  ICH 

IF  (ICH.LT.1.0R.ICH.GT.2) 
WRITEC*,*)  'OUT  OF 
GOTO  19 


PROGRAM 


I  INFORMATION',/, 
CARLO  SIMULATION',//, 


IF  {ICH.EQ.2) 


WRITE<*,6) 

PAUSE 

WRITEC*, 2) 


WRITE(*,3) 

PAUSE 

WRITE(*,A) 

PAUSE 

WRITEC*, 5) 


WRITEC*, 7) 


WRITEC*, 10) 


FORMAT C29X, 'PROGRAM 
*29X,'  WRI 

*28X,'  RUSSELL 
*5X, 'ADVISOR:  ! 

FORMATC//10X, 'TO 
*10X,' 


AN -COST ',////, 

N  BY'.////, 
i.  VOGIMANN',///, 

^H  E.  ELMAGHRABY ',///) 

RUN  THIS  PROGRAM,  YOU  MUST:',/, 


•  •  •  V  V  /_ 


*10X,'  1.  CREATE  A  FILE  CONTAINING  SOME  GENERAL  INFORMATION',/, 

*10X,'  AND  ACTIVITY  DURATION/COST  INFORMATION.  (THIS  CAN',/, 

*10X,'  BE  DONE  BY  RUNNING  F>ROGRAM  ANC- IN.EXE)  ■ ,/, 

*10X,'  2.  PLACE  THE  MEANS  AND  STANDARD  DEVIATIONS  OF  THE',/, 

•10X,'  KEY  EVENTS  IN  A  DATA  FILE  NAMED  "TRNS.ANC". ■ ,/, 

*10X,'  (THIS  CAN  DONE  BY  RUNNING  PROGRAM  D001TRNS.EXE ' ,/, 

•10X,'  WHICH  IS  AN  ALTERATION  OF  DOOIN'S  PROGRAM)  ',/, 

*10X.'  3.  RUN  AN-COST. EXE. ',///) 

FORMAT {//15X, 'PROGRAM  ANC-IN.EXE  HAS  THE  ADDITIONAL  FACILITY',/, 

*10X,'FOR  RANDOMLY  GENERATING  ACTIVITY  NETWORKS.',//, 

•ISX.'THE  SAME  FORMAT  IN  THE  DATA  FILE  ON  DURATION/COST  IS',/, 

*10X,'USED  AS  IS  IN  DMIN'S  PROGRAMS,  THEREFORE  DX1TRNS.EXE ' ,/, 
•lOX.'WILL  GIVE  THE  SAME  INFORMATION  ON  THE  DISTRIBUTIONS  OF',/, 

•lOX.'KEY  EVENTS  AS  DOES  DODINI .EXE. ' ,///) 

FORMAT(///15X,'FOR  FURTHER  DETAILS  ON  PROGRAMS  ANC-IN.EXE,  ',/, 

•10X, 'DM1TRNS.EXE,  OR  AN-COST. EXE  REFER  TO:',//, 

*10X, '"PROJECT  BIDDING  UNDER  CHANCE  TIME  CONSTRAINTS'",//, 

*10X, 'Master's  Thesis  by  RUSSELL  S.  VOGTMANN ' ,///) 

FORMAT(///15X, 'LIMITATIONS  ON  THIS  PROGRAM:',//, 

*10X,'1.  MAX  100  ARCS',/, 

•10X,'2.  MAX  50  NOTES',/, 

*10X,'3.  30  DURATIONS  FOR  AN  ACTIVITY',/, 

*10X,'4.  DIRECTED  ACYCLIC  NETWORKS',///) 

FORMAT(///10X, 'THIS  PROGRAM  IS  DESIGNED  TO  DETERMINE  THE  ',/, 

*5X, 'DISTRIBUTIONS  OF  REALIZATION  TIME  AND  COST  OF  KEY  EVENTS,',/, 

•SX.'AND  THE  STREAMS  OF  CASH  FLOW  OF  DIRECTED  ACYCLIC  NETWORKS.',/, 
*5X,'  ',/, 

*5X,'IT  DOES  THIS  BY  MONTE  CARLO  SIMULATION  OF  THE  NETWORK' ,////) 
FORMAT(///10X,'ONCE  THIS  PROGRAM  IS  COMPLETE,  PROGRAM  CASH. EXE',/, 

*5X,'CAN  BE  USED  TO  VIEW  THE  DISTRIBUTION  FUNCTIONS,  THE  CASH',/, 
•5X,'FLOW  STREAMS,  THE  PERCENTILES  OF  THE  DISTRIBUTIONS,  AND  TO',/ 

'‘5X,'DO  CASH  FLOW  CALCULATIONS  FOR  THE  PROBLEM',///) 

RETURN 

END 


SUBROUTINE  K  E  I  N  F  0 

THIS  SUBROUTINE  SENDS  THE  INFORMATION  ON  THE  DIST.  OF 
THE  REALIZATION  TIME  OF  THE  KEY  EVENTS  TO  AN  OUTPUT  FILE 
CALLED  KEDIST.DAT 

THE  CRITICAL  INDICES  ARE  ALSO  SENT  TO  THE,  ABOVE,  FILE. 


SUBROUTINE  KEINFOCDF, MEAN, VAR, NKEYEN,LL,RR, IWIDTH,CI ,NACT, 

KEYEVN) 

INTEGER  NKEYEN,LL(22),RR(22),NACT,KEYEVN(10) 

REAL  DF(22,102),IWIDTH(22),CI(100) 

DOUBLE  PRECISION  MEAN(22),VAR(22) 


URITE(4,3088) 

DO  3009  J1=1,NKEYEN 

URITE{4,*) 

URITE{4,3083)  KEYEVN<J1) 

3083  FORMAT(/1X,‘  -  KEY  EVENT ',13,* 

KHOLD=(RR{J1)-LL(J1))/IUIDTH(J1)+2 

KH0LD=1NT{KH0LD) 


C---THE  FOLLOWING  <DO>  LOOP  SENDS  THE  EMPIRICAL  DATA  ON  THE  DENSITY 
C---FUNCTION  OF  THE  REALIZATION  TIME  OF  THE  KEY  EVENTS  TO  FILE  KEDIST.DAT 

DO  3010  J2=1,KHOLD 
IF  TJ2.E0.1)  THEN 

URITE(4,3090)  LL(J1),DF{J1,1) 

GO  TO  3010 
END  IF 

IF  (J2.EQ.KHOLD)  THEN 

WRITE(4,3092)  RR( J1 ),DF( J1 .KHOLD) 

GO  TO  3010 
END  IF 

X1=LL(J1)+<J2-2)*IUIDTH(J1) 

X2=X1+IWIDTH(J1) 

X3=DF(J1,J2) 


URITE(4,3091) 


0  CONTINUE 


X1,X2,X3 


THE  FOLLOWING  <00>  LOOP  SENDS  THE  DATA  ON  THE  DISTRIBUTION  FUNC. 
ro  THE  FILE. 

SUM=0.00 

DO  3012  J2=1, KHOLD- 1 

SUM=SUM+DF{J1,J2) 

X1=LL<J1)+{J2-1)*IWIDTH(J1) 

WRITE(4,3094)  XI, SUM 

2  CONTINUE 

■HE  OBSERVED  MEAN  AND  VARIANCE  OF  THE  REALIZATION  TIME  OF  THE 
;EY  EVENTS  (OBTAINED  FROM  THE  MONTE  CARLO  SIM.)  IS  ALSO  SENT 
0  THE  FILE. 

WRITE(4,3095)  MEAN(JI) 

WRITE(4,3096)  VAR(JI) 

IF  (VAR(JI).LE.O.)  VAR(J1)=0. 

WRITE(4,3099)  SQRT(VAR(J1 )) 

}  CONTINUE 

OW  SEND  THE  DIST.  INFO.  ON  PROJECT  COST  TO  THE  FILE. 

WRITE(7,«) 
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URITE(7,*) 

WR1TE(7,»)  ■  -  PROJECT  COST  -  • 

KMOLDs(RR(22)lL(22))/IW1DTH{22)*2 

KHOLD=INT(KHOLD) 

C 

C---THIS  <DO>  LOOP  SENDS  THE  DATA  ON  THE  DENSITY  FUNC.  OF 
C  COST  TO  THE  FILE. 

C 

DO  5050  J2=1,ICHOLO 
IF  (J2.EQ.1)  THEN 

WRITE(7,3090)  LL(22),DF(22, 1 ) 

GO  TO  3050 

END  IF 

IF  (J2.EQ.KHOLD)  THEN 

WRITE(7.3092)  RR(22),OF(22,ICHOLD) 

GO  TO  3050 

END  IF 

X1»lL(22)+(J2-2)»IWI0TH(22) 

X2=Xl+iyiDTH(22) 

X3«0F<22,J2) 

WRITE(7,3091)  X1,X2,X3 

3050  continue 

c 

C  -THIS  LOOP  SENDS  THE  DATA  ON  THE  DIST.  FUNC.  TO  THE  FILE 
C 

SUH=0.00 

DO  3055  J2*1,KHOLD-1 
SL«*SUH+0F(22,J2) 

X1*LL<22)*(J2-1)*IUIDTH(22) 

URITE<7,3094)  X1,SUH 

3055  continue 


C--NOW  SEND  THE  OBSERVED  MEAN  AND  VAR.  OF  THE  PROJECT  COST 
C 

WRITE(7,3095)  MEAN(22) 

WRITE(7,3096)  VAR(22) 

IF  (VAR{22).LE.0.)  VAR(22)=0. 

WRITE(7,3099)  SQRT(VAR<22)) 

C 

C- -SENDING  COST  DIST.  INFORMATION  TO  OUTPUT  FILE  COSTD.DAT 
C 

DO  3020  J1=1,NXEYEN 
C 

WRITE<7,*) 

WRITE(7,3083)  KEYEVN(JI) 

KHOLD=(RR<J1  +  10)LHJ1*10))/1U10TH(J1-»10)*2 
XHOLD=INT(XHOLD) 

C 

C-  -THE  FOLLOWING  <00>  LOOP  SENDS  THE  EMPIRICAL  DATA  ON  THE 
C-- -FUNCTION  OF  THE  COST  OF  THE  KEY  EVENTS  TO  FILE  COSTD.DAT 


DO  3021  J2=1,rHOLO 
IF  (J2.EQ.1)  THEN 


LL(JU10).DF(JU10.1) 


I 

C 

3021 
C 

C---THE 
C---TO 
C 


3022 

C 

C- - -THE 
C- • -KEY 
C---TO 
C 


C 

3020 

C 

C---THE 

C---THE, 

C 


3098 

C 


3097 

3029 

C 

3088 

3090 
3092 

3091 
309<; 

3095 

3096 


URITE(7,3090) 

GO  TO  3021 
END  IF 

IF  (J2.EO.ICHOLD) 

URITEC7,3092) 

GO  TO  3021 
EMDIF 

X1=LL(JU10)-*'(J2-2)*IWIDTH(J1-f10) 
X2=XUIUIDTH(J1  +  10) 
X3=DF(JU10,J2) 

URITE<7,3091)  Xl,X2,X3 


THEN 

RR(JU10).OF(JU10,KHOLD) 


CONTINUE 


FOLLOWING 
THE  FILE. 


<00>  LOOP  SENDS  THE  DATA  ON  THE  DISTRIBUTION 


FUNC. 


SUM=0.00 

DO  3022  J2=1,XH0LD-1 

SUM=SUH->DF(JU10,J2) 

X1=LL(J1  +  10)->(J2-1)«IWIDTH(J1+10) 

WRITE{7,3094)  XI, SUM 

CONTINUE 

OBSERVED  MEAN  AND  VARIANCE  OF  THE  REALIZATION  TIME  OF  THE 
EVENTS  (OBTAINED  FROM  THE  MONTE  CARLO  SIM.)  IS  ALSO  SENT 
THE  FILE. 

WRITE<7,3095)  MEANCJUIO) 

WRITE<7,3096)  VARCJUIO) 

IF  (VAR(J1+10).LE.0.)  VAR<JU10)=0. 

WRITE(7,3099)  SQRT(VAR(J1-H0)) 

CONTINUE 


FOLLOWING  SENDS  THE  CRITICAL 
ABOVE,  DATA  FILE. 


INDICES  OF  THE  ACTIVITIES 


TO 


WRITE(4,3098) 
FORMAT(/1X, ' 


CRITICAL 


INDEXES 


DO  3029  J2=1,NACT 

WRITE<4,3097)  J2,CI(J2) 

FORMATCIX, 'ACTIVITY  •,I2,1X,'HAS 

CONTINUE 


A  CRITICAL 


INDEX 


,F7.4) 


FORMAT(/1X, 'DISTRIBUTION  INFO.  ABOUT  THE  KEY  EVENTS.') 

FORMATCIX, 'Pr  (  X  <=',15,'  >  =  ',F8.4) 

FORMATCIX, 'Pr  {  X  >  ',15, ■  >  =  ',F8.4) 

FORMATCIX, 'Pr  <',F9.3,'<  X  <=',F9.3,'>  =',F8.4) 

FORMATCIX. 'Pr  <  X  <=  ',F9.3,'  >  =  ',F8.4) 

FORMAT(/1X, 'THE  MEAN  OF  THE  DIST.  =',F15.4) 

FORMAT(/1X, 'THE  VARIANCE  OF  THE  DIST.  =',F15.4) 
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F0RMAT(/1X,'THE 


STD.  DEV.  OF  THE  DIST. 


»-,F15.4) 


RETURN 

END 

SUBROUTINE  0  U  T  H  E  L  P 

THIS  SUBROUTINE  PROVIDES  INFORMATION  ON  THE  OUTPUT  OF  AN-COST 


SUBROUTINE  OUTHELP 

WRITE(*,1) 

1  FORMAT(25(/)) 

WRITE(*,2) 


FORMAT (5X, 

'THE  FOLLOWING 

OUTPUT 

IS  AVAILABLE  ON 

THE  RUN',//, 

*10X, ' 

FILE 

DATA 

*10X, '1. 

KEOIST.DAT 

i) 

EMPIRICAL 

DENSITY 

AND  DIST.', 

/, 

*10X, ' 

FUNCTIONS 

ON  REALIZATION',/, 

*10X,' 

TIME  OF  XEY  EVENTS 

*10X, ' 

it) 

ESTIMATED 

CRITICAL 

INDICES',/, 

•10X,'2. 

COSTD.OAT 

i) 

EMPIRICAL 

DENSITY 

AND  DIST.' 

/, 

O 

X 

FUNCTIONS 

ON  COST 

OF  KEY',/, 

•10X, ' 

EVENTS',/, 

•10X, ' 

ii) 

EMPIRICAL 

DENSITY 

AND  DIST.' 

/. 

•10X,' 

FUNCTIONS 

ON  TOTAL 

PROJECT 

COST',/ 

*10X,'3. 

<USER  NAMED > 

GENERAL  INFO. 

ON  RUN',/ 

*10X,'4. 

CASHFLOW.DAT 

DATA 

TO  BE  USED 

BY  PROGRAM  "CASH" 

./) 

PAUSE 

MRITE(»,3) 

3  FORMAT(5(/),5X, 'TO  VIEW  THE  DISTRIBUTION  DATA,  AS  WELL  AS 

•5X, 'EXAMINE  THE  CASH  FLOW  FOR  THE  PROJECT,  RUN  PROGRAM  "CASH".',/, 

•5X, 'PROGRAM  CASH  WILL  ALSO  DO  CASH  FLOW  CALCULATIONS  FOR  THE',/, 

*5X, 'PROJECT. ',///) 

PAUSE 

WRITE(*,1) 

RETURN 

END 


SUBROUTINE  PAYMENTS 


THIS  SUBROUTINE  DETERMINES  THE 

PERIOD  AND  EACH  MONTE  CARLO  SAMPLE. 

SIMULATION,  WE  WILL  HAVE  AN  AVERAGE 

THE  DETERMINATION  OF  PROFIT  MARGINS. 


DISBURSEMENTS 
AT  THE  END 
DISBURSEMENT 


FOR  EACH 
OF  THE  MC 
TO  USE  IN 


SUBROUT  I NE  PAYMENTSC KEYDUR , NACT .CYCLE . ACOST , DURATN , ES , E  F , SD I SBUR , 

'  NMCS.MXPERO . CPI , GAMMA, SUBCO, SUBH, NKEYEN , PCOST ) 

INTEGER  NACT , CYCLE , NMCS , MXPERD , NXEYEN 

REAL  SOI SBUR (100), TDURAT , ACOST (100), DURATN( 1 00 ) , ES ( 1 00 ) , 

'  EF(100),CP1(100),GAMMA,SUBM(100,10),KEYDUR(10) 

DOUBLE  PRECISION  SUBCOdI ), PCOST 
INTEGER  CCPER 

REAL  DISBUR(100),SUBPAY(10,100) 

NPERD=KEYDUR(NXEYEM)/CYCLE+3 
IF(NPERD.GT. MXPERD)  MXPERD=NPERO 

DO  6001  I=1.NKEYEN 

DO  6002  J=1,NPER0 

SUBPAY(I,J)=0 
CONTINUE 
CONTINUE 

DO  6003  I=1,NKEYEN+1 

SUBCO(I)=0 
CONTINUE 

DO  6004  1=1,100 

DISBUR(I)=0.0 
CONTINUE 

DO  6010  1=1, NACT 

IF  (OURATN(I).EQ.O)  GO  TO  6010 

HSTART=ES(I) 

HFINSH=EF(I) 

MP=HSTART/CYCLE+1 
HR=(MP-1)»CYCLE 
MS=MP*CYCLE 

IF  (MS.GT.HFINSH)  GO  TO  6160 

0 1 SBUR ( MP ) =0 1 SBUR (MP)+(MS-HSTART )*ACOST ( I ) /DURATN ( I ) 

DO  6005  I2=1,NKEYEN 

IF  (SUBM(I,I2).NE.O)  THEN 

SUBPAY (12, MP )=SUBPAY ( 1 2 , MP )+(MS - HSTART )* ACOST ( I )* 
SUBM(I,I2)/DURATN(I) 

END  IF 
CONTINUE 

HSTART=MP*CYCLE 
GO  TO  6150 

IF  (MR.LT.HFINSH)  THEN 

IF  (MR. LT. HSTART)  THEN 

OISBUR(MP)=DISBUR(MP)+(HFINSH-HSTART)*ACOST(I)/DURATN(I) 

DO  6165  I2=1,NKEYEN 

IF  (subm(i,i2).ne.O)  then 

SUBPAY(I2,MP)=SUBPAY(I2,MP)+(HFINSH-HSTART)*ACOST(n* 


SUBM(1,12)/DURATNCI) 


END  IF 

6165  CONTINUE 

C 


ELSE 

DISBUR(MP)=DISBURCMP)+(HFlNSH-MR)*ACOST(l)/DURATN(n 
DO  6167  I2=1,NICEYEN 

IF  (SUBHCI ,I2).NE.0)  THEN 

SUBPAY<I2,MP)=SUBPAY(12,MP)+(HFINSHMR)*ACOST{I)* 
*  SUBM{I,I2)/DURATN(I) 

END  IF 

6167  CONTINUE 

END  IF 
C 

END  IF 

6010  CONTINUE 
C 

C---THE  FOLLOWING  <DO>  LOOP  ADDS  IN  THE  COST  CPU  ), 
C-- -CONSTANT  COST  THAT  THE  ACTIVITY  INCURS  REGARDLESS 

C 

DO  6020  J=1,NACT 

CCPER=tNT(ES(J)/CYCLE)+1 

C 


0 1 SBUR  ( CCPER )  °D  I SBUR  ( CCPER  )-»CP  1  (  J  ) 

DO  6125  J2=1,NKEYEN 

IF  (SUBH(J,J2).NE.Q)  THEN 

SUBPAY(J2, CCPER )=SUBPAY(J2,CCPER)*CP1(J)*SUBM(J,J2) 
END  IF 


6125 

CONTINUE 

6020 

CONTINUE 

... 

CHECK  ALGORITHM  FOR  FUTURE 

VALUE 

HERE!! 

DO  6040  I=1,NPERD 

DISBUR(I)=0ISBUR(I)*(1*CAMHA*CYCLE*(I-1)/365) 

6040  CONTINUE 

C 

DO  6042  I*1,NI(EYEN 

DO  6043  J=1,NPERD 

SUBPAY ( I , J ) =SUBPAY ( I , J )• ( 1 ♦GAMHA*CYCLE* ( J - 1 )/365 ) 
6043  CONTINUE 

6042  CONTINUE 

C 

DO  6028  I  =  1,NICEYEN 

DO  6029  J=1,NPER0 

SUBCOC I )=SUBCO( I )+SUBPAY(I , J) 

6029  CONTINUE 

6028  CONTINUE 

C 

C-DETERHINE  TOTAL  PROJECT  CLST 

C 


PCOST=0 


WHICH 

OF 


IS  THE 
DURATION 
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4 


DO  3500  I=1,NKEyEN 

PC0ST=PC0ST+SUBC0< I ) 

CONTINUE 

DO  6030  J=1,NPER0 

SO  I SBUR  ( J  )=S0 1 SBURC  J  )-»’0 1  SBUR(  J  )/NMCS 
CONTINUE 


SUBROUTINE 


P  C  I  N  F  0 


THIS  SUBROUTINE  GIVES  INFORMATION  ON  THE  ALLOCATION  OF  COST  OF 
COMMON  ACTIVITIES. 


SUBROUTINE  PC INFO 

WRITE(»,1) 

I  FORMAT(25(/)) 

URITE(*,2) 

i  FORMAT(5X,'THE  COST 

•5X,'ITS  KEY  EVENTS 
•15X,'1.  PROBABILITY 

•15X,'2.  USER  GIVEN 

•IX, 'INPUT  INFORMATION 


OF  COMMON  ACTIVITIES 


BE  ALLOCATED 


BY  THE  FOLLOWING  METHODS:',//, 
METHOD',/, 

X'S',///, 

OPT  I ON... (OTHER  VALUES-- -RE 


-RETURN)',///) 


REAO(»,»)  lOPTION 
IF  (lOPTION. LT.1. OR. lOPTION. GT. 2) 


IF  (lOPTION. EQ.1) 
URITE(*,1) 
WRITE(*,3) 

i  FORMAT(5X, 'THIS 

*5X, 'PERCENTAGES 
*10X,'WEIGHT(i) 

•10X, '  --where  ) 
*5X,  'PERCENTAGES  ) 
PAUSE 

WRITE(*,A) 

i  FORMAT(///5X, 'FOR 

•5X,  "'PROJECT  BI 

♦5X, 'by  Russell 
PAUSE 


COST  ALLOCATION 
OF  THE  KEY  EVENTS 
=  Pr(  X(i)<=X(j1) 
X(i)  denotes  the  r 
c  NORMALIZED  V 


METHOD  DETERMINES  THE',/, 

5  AS  FOLLOWS...',///, 

>  *...*  Pr(  X(i)<=X(jH)  } 

r.v.  of  key  event  i',//, 

VALUE',//) 


BIDDING 


INFORMATION  SEE  MASTER'S  THESIS',//, 
CHANCE  TIME  ESTIMATES'",/, 


S.  Vogtmann. ' ,//) 


WRITE(*,1) 

WRITE(*,5) 

i  FORMAT(5X, 'THIS 
*5X, 'PERCENTAGES 


OPTION  ALLOWS  THE  USER  TO  INPUT  THE',/, 
USING  HIS  OWN  DISCRETION. ',///) 
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RETURN 

END 

C 

C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 


c 

c 

c 

c 

c 

c 

c 


SUBROUTINES 

THE  FOLLOWING  PROGRAM  AREA  CONTAINS  THE  VARIOUS  SUBROUTINES 
TO  GENERATE  RANDOM  NUMBERS  FROM  MANY  DIFFERENT  DISTRIBUTIONS. 


NORMAL 


DIST. 


M£AN=XBAR  VARIANCE=VAR 

NMIN=MIN.  VALUE  NHAX=MAX. 


SUBROUTINE  RNORMAL(XBAR, VAR, NMIN.NMAX, VALUE, IX) 

REAL  X8AR,VAR,NMIN,NMAX, VALUE 
REAL»8  IX 


C 

C-- -POLAR  COORDINATE  METHOD 
C 

9020  CALL  RANDOM(IX,R1) 

CALL  RANDOM(IX,R2) 

VALUE=XBAR*SQRT(-2»AL0G(R1)*VAR)*C0S(2»3.U159»R2) 

IF  (VALUE. LT.NMIN. OR. VALUE. GT.NMAX)  GOTO  9020 

RETURN 

END 

C 

C  UNIFORM- -CONTINUOUS  A=LEFT  END  B=RIGHT  END 

C 


C+ +++++++++++++++++++++++++++ 


VALUE 


C 


SUBROUTINE  UNICON(A,B, VALUE, IX) 
REAL  A, B, VALUE 

REAL'S  IX 

CALL  RAND0M{1X,X) 

VALUE=A->(B-A)*X 

RETURN 

END 


C+ +  +  +  +  +  +  +  +♦  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  ++  +  +  +  +  +  +  ♦  +  ++  +  +  + +  +  +  +  +  +  +  +  +  +  +  +++4-++  +  +  +  +++ 

c 

C  TRIANGULAR  DIST.  A=LEFT  END  B=MODE  C=R1GHT  END 

C 

C+++++ +++♦♦+++++♦++♦+ ♦++++++++++++++++♦++++++♦♦+♦+++♦4+++++++++++++ 

C 

SUBROUTINE  TRIANGULAR(A,B,C,VALUE, IX) 

REAL  A,B,C,VALUE 

REAL'S  IX 

C 
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CALL  RANDOHCIX.X) 
IF(X.LE.<B-A)/(C-A))  THEN 

VALUE=A+SQRT((C-A)*(B-A)*X) 

ELSE 

VALUE=C-SQRT((C-A)*(C-B)*(1-X)) 


GAMMA  DIST. 


GAMMA(ALPHA,BBETA) 


SUBROUTINE 

REAL 

REAL*8  I 


GAMMA( ALPHA , BBETA, NMI N , NMAX , DURATN , I X ) 
BBETA .ALPHA , NMI N , NMAX , DURATN 


K=INT(ALPHA) 

Q=ALPHA-K 

IF  (K.LE.O)  THEN 
CALL  RANDOMCIX.U) 
Z=-ALOG(U) 

CALL  BETA(Q,1-Q,0,1,Y,IX) 
OURATN=BBETA»(X+Y*Z) 

RETURN 

ELSE 

CALL  RANDOH(IX.U) 

TEMP=U 

IF  (K.GT.1)  THEN 

DO  90Z5  1=1, K-1 

CALL  RANDOMdX.U) 
TEMP=TEMP*U 
CONTINUE 
END  IF 

X=-ALOG(TEMP) 

IF  (Q.EQ.O)  THEN 

OURATN=BBETA*X 


CALL  RANDOMCIX.U) 
Z=-ALOG(U) 

CALL  BETA(Q,1-Q,0,1,Y,IX) 
DURATN=BBETA»(X+Y»Z) 


C 

C 

C 


EXPONENTIAL 


EX(DMEAN) 
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SUBROUT  I NE  EXPON (DHEAN , DUMMY , NMI N , NMAX , DURATN , 1 X ) 

REAL  DME AN, DUMMY, NM I N.NMAX, DURATN 

REAL*8  IX 

CALL  RANDOM(IX,X) 


DURATN=-ALOG(X)*DMEAN 

IF(DURATN.LT.NMIN.OR.DURATN.GT.NMAX) 

RETURN 


GOTO  9055 


BETA  OtST. 


C=LEFT  ENDPOINT 
A=1ST  SHAPE  PAR. 


D=RIGHT  ENDPOINT 
B=2ND  SHAPE  PAR. 


SUBROUTINE  BETA(A,B,C,0, DURATN, IX) 

REAL  A, B,C,D, DURATN 

REAL*8  IX 


CALL  RANDOM(IX,U1) 
CALL  RANDOH(IX,U2) 
Y1=U1**{1/A) 
Y2=U2**<1/B) 

IF  ((Y1+Y2).LE.1.0) 
Y=Y1/{Y1+Y2) 
DURATN=C+(D-C)*Y 


ITER=ITER+1 


IF  (ITER. LT. 100) 
GOTO  9057 


WRITE<»,9058) 


FORMATdX, 


100  INTERATIONS  OVER  IN  BETA  WITHOUT  SUCCESS') 


C++++++++++++++++++++++++++++++++++++++++*+*++**++*»++++++++++++*++ 

c 

C  USER  DEFINED  DISCRETE  DENSITIES 

C 

C  THESE  ARE  ORDERED  PAIRS  OF  DURATIONS  AND  PROBABILITIES ■ ■ 

C  THE  DURATIONS  ARE  STORED  IN  DURA,  AND  THE  PROB.'S  IN  DIST 

C 

C  +  +  +  +  +  +  +  +  +  +  +  +  +  ++  +  +  +  +  +  +  +  +  +*  +  +  +  +  +  +  -f  +  +  *  +  +  +  +**  +  +  +  *  +  +  +  *  +  +  *  +  **  +  +  +  +  +  +  +  +  4-+  + 


I*  *  ^  • 


SUBROUT  I NE  USER  1  ( NOP ,  D I  ST ,  DURA , ! ,  DURATN ,  I X  ) 

INTEGER  I,NOP(100) 

REAL  DIST(100,30),OURA( 100. 30). DURATN 

REAL*8  IX 


9060 

9065 


CALL  RANDOHCIX.X) 

CUMDIST=0.0 

DO  9060  II=1,NOP(I) 

CUMD I  ST=CUMD  I ST+D I  ST  ( 1 ,  1 1 ) 

IF  (X.LE.CUMOIST)  THEN 

DURATN=DURA(I,II) 

RETURN 
END  IF 
CONTINUE 
RETURN 
END 


RANDOM  UNI  FORM (0,1) 


f +++++++++ 


SUBROUTINE  RANDOH(IX,D) 

DOUBLE  PRECISION  T.A.P, IX,B15,B16,XH1 ,XALO, LEFTLO, FHI ,X 
DATA  A/16807. DO/, B15/32768. DO/. B16/65536. DO/, P/2147483647.D0/ 

C 

XHI=IX/B16 

XHI=XHI-OHOO(XHI,1.DO) 

XAL0=(IX-XHI»B16)»A 

LEFTL0=XAL0/B16 

LEFTLO=LEFTLO-DMOO(LEFTLO, 1 .00) 

FHI»XHI*A+LEFTLO 

X=FHI/B15 

K=X-0MOO{K,1.00) 

IX=<({XALO-LEFTLO*B16)-P)+(FHI-K»B15)*B16)+X 
IF(IX.LT.O.DO)  IX=IX+P 

Y=IX*4.656612875E-10 
D=REAL(Y) 

IX=IX+1.0 

RETURN 

END 

C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

C 

C  SUBROUTINE  R  C  0  S  T 

C 

C  THIS  SUBROUTINE  DETERMINES  THE  COST  OF  AN  ACTIVITY 

C  IN  A  PARTICULAR  MONTE  CARLO  SAMPLE.  (TAKING  INTO  ACCOUNT 

C  THE  POSSIBLE  RANDOM  VARIATION  OF  COST). 

C 


C++t ♦++++♦+♦++♦+++++++++++++++++++♦++++++++♦++♦++♦+♦++++♦♦+++♦+♦+++ 


c 
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SUBROUT I NE  RCOST (DURATN , ACOST , CDNUM, CP2, CP3, CP4 , CPS ,  I X ) 

INTEGER  CDNUM 

REAL  DURATN , ACOST , CP2 , CP3 , CP4 . CPS 

REAL*8  IX 

C 

GOTO( 9071 , 9072 , 9073 , 9074 ), CD  NUM 
C 

C-- -CONSTANT  COST/UNIT  TIME 

9071  ACOST=CP2*DURATN 
RETURN 

C 

C---COST=NORMAL  R.V.  ABOUT  A  MEAN=CONST. ‘DURATION  AND  A 

C---SPECIFIED  VARIANCE. 

9072  CALL  RNORMAL(CP2*DURATN,CP3,CP4, CPS, ACOST, IX) 

RETURN 

C 

C---COST=UNIFORM  R.V.  ABOUT  A  MEAN=CONST. ‘DURATION  AND  SPECIFIED 

C-- -DISTANCE  BETWEEN  ENDPOINTS  AND  MEAN. 

9073  CALL  UNICON(CP2‘DURATN-CP3,CP2‘DURATN+CP4,ACOST, IX) 

RETURN 

C 

C-- -TRIANGULAR  COST  DIST.  ABOUT  A  MOOE=CONST. ‘DURATION  AND  SPECIFIED 

C-- -DISTANCE  BETWEEN  ENDPOINTS  AND  MODE 

9074  CALL  TR I ANGULAR (CP2‘DURATN,CP2‘DURATN-CP4,CP2‘DURATN+CPS, 

‘  ACOST, IX) 

RETURN 

END 

C . 

c 

C  SUBROUTINE  SAMPHELP 

C 

C  THIS  SUBROUTINE  PROVIDES  INFORMATION  ON  THE  SAMPLE  SIZE  DETERMINA- 

C  TION. 

C 

C . 

c 

SUBROUTINE  SAMPHELP 
C 

WRITE(‘,1) 

1  FORMAT{2S(/)) 

WRITE(‘,2) 

2  FORMATCSX, 'THIS  PROGRAM  IS  ESTIMATING  THE  DISTRIBUTION  FUNC-',/, 

‘SX,'TIONS  OF  DURATION  AND  COST  AT  VARIOUS  KEY  EVENTS.  IN  ',/, 
‘SX, 'ORDER  TO  DO  THIS  WITH  SUFFICIENT  ACCURACY,  WE  MUST  MAKE',/, 
‘5X,'THE  SAMPLE  SIZE  LARGE  ENOUGH.',//, 

‘5X,'THIS  SAMPLE  SIZE  CAN  BE  DETERMINED  VIA  THE  KOLMOGOROV-',/, 

‘5X, 'SMIRNOV  STATISTIC  FOR  GOODNESS-OF-FIT.  THIS  PROGRAM',/, 

•5X,'USES  THE  LIMITING  STATISTICS  (AS  SAMPLE  SIZE  INCREASES',/, 

‘5X,'TO  INFINITY)  TO  DETERMINE  THE  SAMPLE  SIZE.',//, 

‘5X, 'THESE  VALUES  WERE  TABULATED  BY  N.  SMIRNOV  IN  "TABLE  FOR',/, 
•5X, 'ESTIMATING  THE  GOODNESS  OF  FIT  OF  EMPIRICAL  DISTRIBUTIONS'",/, 

*5X, 'ANNALS  OF  MATHEMATICAL  STATISTICS.  19(1948),  p. 279-281 ' ,//) 

PAUSE 
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URITE{*,1) 

C 

RETURN 

END 

C . 

c 

C  SUBROUTINE  SAMPLESIZE 

C 

C  THIS  SUBROUTINE  DETERMINES  THE  REQUIRED  SAMPLE  SIZE  FOR  THE 

C  REQUIREMENTS  OF  THE  USER. 

C 

C . 

c 

SUBROUTINE  SAMPLES I ZE(NMCS) 

C 

INTEGER  NMCS 
REAL  D{11),A{11) 

CHARACTER‘1  NCHAR 

DATA  D  /  0.826,0.861,0.895,0.932.0.9^,1.02,1.073,1.138,1.225, 

*1.36,1.63  / 

DATA  A  /  0.5,0.55,0.6,0.65,0.7,0.75,0.8,0.85,0.9,0.95,0.99  / 

C 

8099  WRITE(*,8100) 

8100  FORMAT(25(/)) 

C 

WRITE(*,8105) 

8105  FORMAT(5X, 'THIS  PORTION  OF  THE  PROGRAM  DETERMINES  THE  NECESSARY',/ 

*,5X, 'SAMPLE  SIZE  FOR  THE  MONTE  CARLO  SIMULATION',///, 

*10X,'1.  SAMPLE  SIZE  INFORMATION',/, 

*10X,'2.  PROCEED  WITH  SAMPLE  SIZE  DETERMINATION',/, 

•10X,'3.  TERMINATE  PROGRAM',//, 

*5X, 'ENTER  CHOICE',///) 

READ(*,*)  ICH 

IF  (ICH.LT.1.0R.ICH.GT.3)  THEN 

WRITE(*,*)  'OUT  OF  RANGE  --  TRY  AGAIN  CLOWN' 

GOTO  8099 
END  IF 
C 

IF  (ICH.EQ.3)  STOP 

IF  (ICH.EQ.1)  THEN 

CALL  SAMPHELP 
GOTO  8099 
END  IF 
C 

WRr''(*,8100) 

C 

WRITE(*,8106) 

8106  FORMAT(///,5X,' INPUT  THE  MAXIMUM  DIFFERENCE  BETWEEN  THE  TRUE',/, 

*5X, 'PROBABILITY  DISTRIBUTIONS  AND  THE  SAMPLED  DISTRIBUTIONS',/, 

•5X,'(e.g.  .01)',///) 

READY*, •)  DK 

8109  WRITE(*,8110) 

8110  FOfiMAT(///,5X,' INPUT  THE  ALPHA  LEVEL  (FOR  A  1-ALPHA  CONFIDENCE)',/ 
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RANGE  IS  FROM  .01  TO  .5)',//) 


•,5X, ‘--ALLOWABLE 
READC*,*)  RAL 
IF  (RAL. LT. 0.01. OR. RAL. GT. 0.5)  THEN 

WRITEC*,*)  'OUT  OF  RANGE' 
WRITE(»,8100) 

GOTO  8109 
ENDIF 


VAL=0.0 

IF  (RAL. LE. 0.5. AND. RAL. GT. 0.45)  THEN 


CALL 

SSZ(D(1),D(2),A(1),A(2),RAL,VAL) 

ELSE 

IF 

(RAL. LE. 0.45. AND. RAL. GT. 0.40) 

THEN 

CALL 

SSZ(D(2),D(3),A(2),A(3),RAL,VAL) 

ELSE 

IF 

(RAL.LE.0.40.AND.RAL.GT.0.35) 

THEN 

CALL 

SS2(D(3),D(4),A(3),A(4),RAL,VAL) 

ELSE 

IF 

(RAL.LE.0.35.AND.RAL.GT.0.30) 

THEN 

CALL 

SSZ(D(4),0(5),A(4),A(5),RAL,VAL) 

ELSE 

IF 

(RAL. LE. 0.30. AND. RAL. GT. 0.25) 

THEN 

CALL 

SS2(0(5),D(6),A(5),A(6),RAL,VAL) 

ELSE 

IF 

(RAL. LE, 0.25. AND. RAL. GT. 0.20) 

THEN 

CALL 

SSZ(D(6),D(7),A(6),A(7),RAL,VAL) 

ELSE 

IF 

(RAL.LE.0.20.AND.RAL.GT.0.15) 

THEN 

CALL 

SSZ(0(7),0(8),A(7),A(8),RAL,VAL) 

ELSE 

IF 

(RAL.LE.0.15.AND.RAL.GT.0.10) 

THEN 

CALL 

SSZ(D(8),D(9),A(8),A(9),RAL,VAL) 

ELSE 

IF 

(RAL.LE.0.10.AND.RAL.GT.0.05) 

THEN 

CALL 

SSZ(D(9),D(10),A(9),A(10),RAL,VAL) 

ELSE 

IF 

(RAL.LE.0.05.AN0.RAL.GE.0.01) 

THEN 

CALL 

SSZ(0(10),D(11),A(10),A(11),RAL,VAL) 

ENDIF 


NMCS=(VAL/DK)»*2 

WRITE(*,8100) 

WRITE(*,8115) 

5  FORMAT(5X, 'THE 
&5X, 'REQUIREMENTS 
&5X, 'SIMULATION 
READC*, 8120) 
FORMAT(A1 ) 


NMCS 

SAMPLE  SIZE 
IS  ',16,'. 
TO  TAKE  this 
NCHAR 


NECESSARY  TO 
DO  YOU  WANT 
MANY  SAMPLES 


SATISFY  THE  GIVEN',/, 
THE  MONTE  CARLO',/, 
(Y  or  N)',//) 


IF  (NCHAR. EQ. 'N' .OR. NCHAR. EQ. 'n' )  THEN 

URITE(*,8125) 

5  FORMAT(///, 'THEN  INPUT  THE  NUMBER  YOU  WANT  TO  TAKE',/) 

READ(*,*)  NMCS 
ENDIF 


RETURN 

END 


SUBROUTINE  SEPARATE 

THIS  SUBROUTINE  SEPARATES  THE  COST  OF  ACTIVITIES  CON ■ 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c- 

c 


TAINED  IN  THE  SUBGRAPHS  OF  HORE  THAN  ONE  KEY  EVENT 
MON  ACTIVITIES). 

•••THE  USER  CAN  CHOOSE  THE  PERCENTAGES  TO  ATTRIBUTE 
KEY  ACTIVITY,  OR  HE  CAN  LET  THE  PROGRAM  SEPARATE 
AS  FOLLOWS: 

WEIGHT(i)=  Pr  <  X(i)<=X(j1)  >  *  •  Pr  {  X( 

**PERCENTAGE(n=NORMALIZED  VALUES  OF  WEIGHT(i) 

■THIS  METHOD  ASSUMES  THAT  THE  REALIZATION  TIME  PDF 
•NORMALLY  DISTRIBUTED.  ■•>  SEE  MASTER'S  THESIS  FOR 


SUBROUTINE  SEPARATE  (SUBM, J2,NKEYEN,NOOEST,NOOEFI ,KEYEVN,AVERG 

STDV , PERCEN , NACT , ACOST ) 

INTEGER  J2.NKEYEN,NOOEST(100),NOOEFI{100),KEYEVN(10),NACT 

REAL  SUaM(100,10),AVERG(10),STOV(10),PERCEN(100,10),ACOST(100) 


INTEGER  POINTER( 10), METHOD, FLAG, NUN 

REAL  W(10),UTOT,TEMP 

C 

C- ■ INITIALIZE  ARRAY  PERCEN  TO  ZERO 

C 


DO  2000  J3s1,NACT 

DO  2001  Jlsl.NKEYEN 

PERCEN(J3,J1)=0. 

C 

C---DO  HOUSEKEEPING  ON  MATRIX  SUBM 
C 


IF  (SUBM(J3,J1).LT. 0.000001)  SUBM{ J3, Jl )=0.0 

2001  CONTINUE 
2000  CONTINUE 


DO  2002  J2*1,NACT 

DO  2025  II=1,NKEYEN 

POINTER(II)=0 
W(II)sO 

2025  CONTINUE 

■■•DETERMINE  IF  ACTIVITY  IS  COMMON  TO  MORE  THAN  ONE  KEY 

T0TAL=0 

DO  2003  J4=1,NKEYEN 

TOTAL=TOTAL+SUBM(J2,J4) 

2003  CONTINUE 


(I.E.  C 


TO  EACH 
THE  COS 


i)<=X(jN) 


'S  ARE 
DETAILS 


EVENT 


GO 


TO  NEXT  ACTIVITY 


IF  UNIQUE 


TO  ONE  KEY  EVENT 


■WTpni^  w  tn  M  V  M-'wiw;'  w  'n  w  'n  ij*  » u  •  v  i  f  •  j  v  -j  ;j  .t^  ■■»  ^ 


nyTKrjTTTrTrmTrr'v^^T'jnr^jrv^^if^jr’vmrm^rwT^ 

V 


c 


IF  (TOTAL. LE.AC0ST(J2)) 


GOTO  2002 


2089 

2090 


2091 

2092 
C 


2005 

2093 

C 


WRITE(»,2090) 
F0RMAT{//1X, ' 
WRITE(*,2091) 
WRITE(*,2092) 
FOfiMATdX, ' 
FORMATdX,  • 


J2,NWEST(J2),NODEFI(J2) 

ACTIVITY  ',12,'  FROM  NODE  ’,K,'  TO  NODE 

') 

is  common  to  the  following  XEY  EVENTS;') 


DO  2005  J3=1,NXEYEN 

IF  (SUBM(J2,J3).NE.0.0)  THEN 

POINTER<J3)=1 
PERCEN(J2,J3}=1 
URITE(*,2093)  KEYEVN(J3) 

ENOIF 
CONTINUE 
FORMATdX,  K) 


2U0  URITE(*,2091) 

URITE(*,2094) 
WRITE(*,2091) 
URITE(*,2095) 
WRITE(*,2096) 
URITE(*,2098) 


2094 

FORMAT (//IX, 

'WHAT  METHOD 

OF  SEPARATION 

DO 

2095 

FORMATdX, ' 

PROBABILITY 

METHOD  . 

1') 

2096 

FORMATdX,' 

USER  GIVEN 

X'S  . 

2') 

2098 

FORMATdX,' 

••information** 

10') 

C 

READ(*,*)  METHOD 
C 


IF  (METHOT.EQ.10)  THEN 

CALL  PCINFO 
GOTO  2089 
END  IF 
C 

IF  (METHOD. LT.1. OR. METHOD. GT. 2)  THEN 

URITE(*,2091) 

URITE(»,214A) 

2144  FORMAT (5X, 'value  OUT-OF-RANGE  ---  try  again') 

GOTO  2140 
END  IF 
C 

C . USER  DECIDING  HIS  OWN  SEPARATION  PERCENTAGES 

C 

IF  (METHOD. EO. 2)  THEN 

2050  DO  2010  J3=1,NKEYEN 

IF  (POINTER(J3).EQ.1)  THEN 

WRITE(»,2097)  XEYEVN(J3) 

REA0(*,*)  PERCEN(J2,J3) 

END  IF 

2010  CONTINUE 

C 


',14) 


1 


V 

s' 

s' 

So 
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su=o 

DO  2011  J3*1,NKEYE»I 

PERCEN(J2,J3)=PERCEN(J2,J3)/100 

SU=SU+PERCEN(J2,J3) 

CONTINUE 

IF  (SU.NE.1)  THEN 
WRITE(*,2099) 

GO  TO  2050 


2099  FORMATdX, 'DOES 
2097  FORMATdX, 'Input 


NOT  ADD  TO  1  ---  TRY  AGAIN') 

percentage  for  KEY  EVENT ',13) 


-PROBABILITY 


IF  (HETHX.EQ.1) 


C---DETERMINE 


KEY  EVENT  THAT  HAS  SMALLEST  MEAN,  MARK  WITH  FLAG 


TEMP=100000000.00 
DO  2100  J3=1,NKEYEN 
IF  (POINTER<J3),NE.O) 

IF  (AVERG(J3).LT.TEMP) 
TEMP=AVERG(J3) 
FLAG=J3 
END  IF 


2100  CONTINUE 


C-- -DETERMINE 


Pr  C  X(s)  <=  Xd)  > 


DO  2105  J3=1,NKEYEN 

IF  (POINTER(J3).NE.O  .AND.  J3.NE.FLAG)  THEN 

Z=(AVERG(J3)-AVERG(FLAG))/(SORT(STDV(FLAG)**2+STDV(J3)**2)) 

C 

C---PHIZ  DENOTES  THE  Pr  <  X(s)  <=  X(i)  > 

C 

CALL  STONOR(Z,PHIZ) 

C 

C-- -PLACE  HO  WEIGHT  ON  KEY  EVENT  i  IF  Pr  C  X(s)  <=  Xd)  >  >=  0.9 

C---(THIS  IS  AN  ARBITRARY  SETTING) 

C 

IF  (PHIZ. GE. 0.9)  THEN 

POINTER(J3)=0 
PERCEN(J2,J3)=0 


2105  CONTINUE 


C- - -DETERMINE  WEIGHT(I)  AS  SHOWN  IN  PREAMBLE  TO  THIS  SUBROUTINE 
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C ---(  SEE  ABOVE  ) 

C 

DO  2160  J5=1,NKEYEN 

IF  (POINTER(J5).NE.1)  GOTO  2160 

U(J5)=1 

DO  2165  J6=1,NKEYEN 

IF  (J6.E0.J5.0R.P0INTER{J6).NE.1)  GOTO  2165 

C 

Z-(AVERG(J6)-AVERG(J5))/{SQRT<STDV(J6)*»2+STDV(J5)*»2)) 
CALL  STONOR(Z,PHIZ) 

C 

U(J5)=U(J5)*PHIZ 

C 

r'65  CONTINUE 
2160  CONTINUE 
C 

WTOT=0.0 

DO  2030  J3=1,NKEYEN 

UTOT=WTOT+U(J3) 

2030  CONTINUE 

C 

DO  2115  J3=1,NKEYEN 

IF  (POINTER(J3).NE.0)  THEN 

W(J3)=W(J3)/WTOT 
PERCEN(J2,J3)=W(J3) 

END  IF 

2115  CONTINUE 

C 

URITE<*,2189)  J2 

WRITE(3,2189)  J2 

URITE(3,2191) 

WRITE(*,2191) 

DO  2120  J3=1,NKEYEN 


IF  (PERCEN(J2,J3).EQ.O)  GO  TO  2120 

WRITE(*,2190)  100*PERCEN(J2,J3),KEYEVN(J3) 

WRITE{3,2190)  100*PERCEN(J2,J3),KEYEVN{J3) 


2120 

CONTINUE 

2191 

FORMAT (IX, 'PERCENTAGE 

TO  KEY  EVENTS  OF  COMMON 

ACT.') 

2190 

FORMAT{F6.2,1X,  'PERCENT 

TO  KEY  EVENT- -',14) 

2189 

FORMATCIX, 'ACTIVITY 

M2) 

END  IF 
C 

C-- -CONTINUE  ORIGINAL  DO  LOOP  OVER  ACTIVITIES 

C 

2002  CONTINUE 
C 

RETURN 

END 

C . 

c 

C  SUBROUTINE  S  H  C  0  R  R 

C 

C  THIS  SUBROUTINE  KEEPS  TRACK  OF  THE  SUM  AND  THE  SUM  OF  SQUARES 


THE  COST  AND  DURATION 


OF  THE  KEY  EVENTS  TO  BE  USED  LATER  TO  GET 


C 

C 

c 

c 

c 

c 


c 


3600 

C 


C 


C 

C 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 


VALUES  OF  SAMPLE  CORRELATION  AND  A  LEAST  SQUARES  FIT  OF  THE 


SUBROUT  I NE  SMCORR ( PCOST , SUBCO, KEYDUR , NKEYEN , SSUH , SSUMSQ , SUMXY ) 

INTEGER  NKEYEN 
REAL  KEYDURdO) 

DOUBLE  PRECISION  SSUM(21 ),SSUMSQ(21 ),SUMXY(1 1 ),SUBCO(1 1 ), PCOST 

DO  3600  1=1, NKEYEN 

SSUM( I )=SSUM( I )+KEYDUR< I  ) 

SSUMSQC I )=SSUMSQ( I )+KEYDUR( 1 )*KEYDUR( I ) 

SUMXYC I )=SUMXY{ I )+KEYDUR{ I )*SUBCO( I ) 

SSUM( I+10)=SSUM( I+10)+SU8CO( I ) 

SSUMSQ< I+10)=SSUMSQ( I+10)+SUBCO( I )»SUBCO( I ) 

CONTINUE 

SSUM(21 )=SSUMC21 )+PCOST 
SSUMSQ(21 )=SSUMSQ(21 )+PCOST*PCOST 
SUMXYC 1 1 )=SUMXY( 1 1 )+KEYDUR(NKEYEM)*PCOST 

RETURN 

END 


SUBROUTINE  S  S  Z 

THIS  SUBROUTINE  CALCULATES  THE  SAMPLE  SIZE  USING  A  LINEAR 
POLATION  BETWEEN  ENDPOINTS  (SEE  SAMPLE  SIZE  INFO.  FOR  MORE) 


SUBROUTINE  SSZCXI ,X2,Y1 ,Y2,RAL,VAL) 
REAL  X1,X2,Y1,Y2,RAL,VAL 

SLOPE=(Y2-Y1)/(X2X1) 

B=Y1-SLOPE*X1 

VAL=(1-RAL-B)/SLOPE 

RETURN 

END 


C . 

c 

C  SUBROUTINE  S  T  D  N  0  R 

C 


c 

THIS  SUBROUTINE 

COMPUTES 

the 

Pr  {  X  <=  X  >  FOR  A  STANDARD 

c 

NORMAL  VARIABLE. 

c 

THE  PROBABILITY 

COMPUTED 

IS 

DENOTED  BY  PHIZ. 

DATA. 


INTER- 


SUBROUTINE 


STONOR(Z,PHIZ) 


REAL  Z.PHIZ 

DOUBLE  PRECISION  PI 

DATA  PI/3.141592653589793/ 

C 

Y=Z/SQRT(2.0) 

IF  (Z.LE.O)  Y=-Y 
S=0 
C 

DO  100  1=1,37 

RI  =  I 

S=S+EXP(  RI*RI/25.)/RI*SINC2*RI*Y/5.) 

100  CONTINUE 
C 

S=S+Y/5. 

S=2*S/PI 

PHlZ=(1*S)/2. 

C 

IF  (Z.GE.O.)  GOTO  1780 
PHIZ=(1-S)/2. 

1780  IF  (Z.LE.8.3)  GOTO  1800 
PHI2=1 

1800  IF  (Z.GE.-8.3)  GOTO  1820 
PHI2=0 
C 

1820  RETURN 
END 

C . 

C 

C  SUBROUTINE  SUBNET 

C 

C  THIS  SUBROUTINE  FINDS  THE  SUBNETWORKS  OF  THE  KEY  EVENTS  AND 

c  •******************.****.*qosts  fr,  the  key  events. 

C 

C . 

c 

SUBROUTINE  SUBNET(NKEYEN,NACT,KEYEVN,NOOEFI  ,NOOEST,ACOST,ASCi.  JD, 

*  SUBCO,SUBM,PERCEN,FLAGONE) 

C 

INTEGER  NKEYEN,NACT,KEYEVN(10),NOOEFI(100),NOOEST(100), 

*  ASCEND(100),FLAGONE 

REAL  ACOST(100),SUBCO(11),SUBM(100,10),PERCEN(100,10) 

C 

INTEGER  LPCIOO) 

REAL  SUBN(100,10) 


-INITIALIZE  SUBNETWORK 

DO  1001  K=1,NKEYEN 


MATRIX  TO  ZERO 
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i 


■A 


•/i 


*  ^ 


DO  1000  I=1,NACT 


1000 

SUBN{I,K)*0.0 

CONTINUE 

1001 

CONTINUE 

■■■FIND 

SUBNETWORKS  OF  THE 

KEY  EVENTS  AND 

1010 

DO  1005  K=1,NKEYEN 

LZ  =  KEYEVNCK) 

DO  1010  I=1,NACT 

LP(I)=0 

CONTINUE 

1100 

KT=0 

DO  1015  I=1,NACT 

IF  (NOOEFI(I).NE.LZ) 

GO  TO  1015 

IF  (KT.EQ.O)  GO  TO 

1105 

1105 

LP(I)=1 

GO  TO  1015 

SUBN(I,K)=ACOST(I) 

1015 

KT  =  1 

LE^NOOESTd) 

CONTINUE 

LZ=LE 

IF  (LZ.NE.ASCENOd)) 

GO  TO  1100 

1110 

DO  1020  I=1,NACT 

IF  (LP(I).NE.O)  GO 

TO  1115 

1020 

CONTINUE 

1115 

GO  TO  1005 

KS»0 

DO  1025  I=1,NACT 

IF  (LPCO.EQ.O) 

IF  (KS.EQ.1) 
SUBN(I,K)=ACOST(n 
LP(I)=0 
L2=N00EST(I) 

KS=1 

CONTINUE 
GO  TO  1100 
CONTINUE 


GO  TO  1025 
GO  TO  1025 


-■■UPDATE  SUBGRAPHS  BY  REMOVING  ACTIVITIES  IN  KEY  EVENTS  THAT 
■■■HAVE  KEY  EVENTS  AS  SUBSETS  (STORE  IN  SUBM) 

DO  1050  I*1,NACT 

DO  1050  K=1,NKEYEN 

SUBM(I,K)=SUBN(I,K) 

1050  CONTINUE 

HKEYEN=NKEYEN-1 
DO  1055  J=1,MKEYEN 

L=J+1 

DO  1056  K=L,NKEYEN 
DO  1057  I=1,NACT 


BY  REMOVING 


^ 


"•  -N  *  -V  .•v  % 


GO  TO  1056 


If  (SUBN(1,J).GT.SUBN(I,K)) 

1057  CONTINUE 
DO  1058  :=1,NACT 

IF  (SUBN(I,J).EQ.O)  GO  TO  1058 

SUBM(  1 ,10=0. 

1058  CONTINUE 

1056  CONTINUE 

1055  CONTINUE 

C 

C . 

c 

C - ON  INITIAL  CALL,  I  NEED  TO  RETURN  HERE - 

C 

IF  (FLAGONE.EQ.O)  RETURN 

C . 

c 

DO  1070  I=1,NACT 

TOTAL=0. 

DO  1075  K=1,N<£YEN 

TOTAL=TOTAL+SUBM(I,IO 

1075  CONTINUE 
C 

C---IF  THE  ACTIVITY  IS  COMMON  TO  MULTIPLE  KEY  EVENTS,  UE  NOW  SPLIT 
C---THE  COST  ACCORDING  TO  OUR  PREVIOUS  DECISION 
C 

IF  (TOTAL. GT.ACOST(I))  THEN 

DO  1077  K=1,NKEYEN 
SUBMd  ,K)=SUBM(I,K)»PERCEN(I,K) 

1077  CONTINUE 

END  IF 

1070  CONTINUE 
C 

WRITE<*,»)  'COST  PERCENTAGES  TO  KEY  EVENTS:' 

WRITE(*,*)  '  ' 

WRITE(*,1090)  (K,K=1,NKEYEN) 

1090  FORHAT(/4X, 'NS  NF',10('  KEY( • , 12, ' ) ' )/ ) 

DO  1076  I=1,NACT 

WRITE(»,1091)  NOOEST(I),NOOEFI(I),(SUBM(I,K),K=1,NKEYEN) 

1091  FORMAT(1X,2I5,10(F10.2)) 

1076  CONTINUE 
C 

C 

1081  RETURN 
END 

C . 

c 

C  SUBROUTINE  U  P  P  A  Y 

C 

C  UPDATE  ARRAY  PAY  AND  VAR.  CAPITL  CONTAINING  THE  AMOUNT  OF 

C  COST  OBTAINED  IN  THE  PERIOD  OF  THE  KEY  EVENT'S  REALIZATION. 

C 

C . 

c 


H5 


SUBRCXJT 1 NE  UPPAY{ KEYDUR , PAY , MXPERD , CYCLE , NMCS , kKE YEN , SUBCO, CAP  I TL ) 

C 

INTEGER  NKEYEN, MXPERD. CYCLE, NHCS 

REAL  KEYDUR(10),PAY(10,100),CAPITL 

DOUBLE  PRECISION  SUBCO(11} 

C 

REAL  TPAY(10,100),TDURAT 

C 

C----INITIALIZE  ARRAY  TPAY 

C 

DO  1204  K1=1, NKEYEN 

DO  1205  K2=1, MXPERD 

TPAY(K1,K2)=0. 

1205  CONTINUE 
1204  CONTINUE 
C 

DO  1200  K2=1, NKEYEN 

IMARK=KEYDUR(K2)/CYCLE 
RMARK=KEYDUR(K2)/CYCLE 
IF  ((RMARK-IMARK).EO.O.OO)  THEN 

TPAY(K2, IMARK)=TPAY(K2, IMARK)+SUBC0(K2) 

ELSE 

TPAY(  K2 , 1  MARK*  1  )=TPAY  ( K2 , 1 MARK+1  )+SUBCO(  K2  ) 

END  IF 

1200  CONTINUE 

C 

C - UPDATE  VALUES  FOR  MONTE  CARLO  SIM. - 

C 

CAPITL=CAPITL*SUBCO(NKEYEN+1)/NMCS 
DO  1209  K2=1, NKEYEN 

DO  1210  K1=1, MXPERD 

PAY(K2,K1 )=PAY(K2,K1 )+TPAY(K2,K1 )/NMCS 
1210  CONTINUE 

1209  CONTINUE 

C 

RETURN 

END 

C . 

c 

C  SUBROUTINE  X  E  X  P  E  C 

C 

C  THIS  SUBROUTINE  DETERMINES  THE  MEAN  AND  VARIANCE  OF  THE 

C  ACTIVITIES  FOR  USE  IN  SUBROUTINE  INITIALIZE. 

C 

C . 

c 

SUBROUTINE  XEXPEC(XEXP,XSTD,NACT.P1,P2,P3,P4,DNUM,DIST,DURA,NOP) 

C 

INTEGER  DNUM(100),NOP{100),NACT 

REAL  P1(100),P2(100),P3{100),P4(100),DIST{100,30),DURA(100,30), 

*  XEXP(100),XSTD(100) 

C 

DO  1950  1  =  1,NACT 
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.If  li*ifi*^ 


.Tvncrn.TX.TH.' 


Y1=PUI) 

Y2=P2(I) 

Y3=P3(I) 

Y4=P4(I) 

Y5=Y4-Y3 

GOTO  ( 1 952, 1 953 . 1 954 , 1 955 , 1 956, 1957. 1958) , DNUM ( I ) 

C 

C  ---  UNIFORM 

C 

1952  X=(Y3+Y4)/2.0 
ST=SQRT(Y5*Y5/12.0) 

GOTO  1959 

C 

C  ---  TRIANGULAR 

C 

1953  X=(Y1+Y3+Y4)/3.0 
ST=SQRT({Y3»(Y3-Y1)+Y4»Y5+Y1*(Y1Y4))/18.0) 

GOTO  1959 

C 

C  -  -  ■  NORMAL 

C 

1954  X=Y1 
ST=Y2 

GOTO  1959 
C 

C  EXPONENTIAL 

C 

1955  X=Y1 
ST=Y1 

GOTO  1959 
C 

C  •  -  -  GAMMA 

C 

1956  X=Y1*Y2 
ST=SQRT(X*Y2) 

GOTO  1959 

C 

C  -  -  -  BETA 

C 

1957  X=Y3+Y5*Y1/{Y1+Y2) 
ST=SORT(Y5*Y5*Y1*Y2/((Y1+Y2)»*2*(Y1*Y2+1))) 

GOTO  1959 

C 

C  ---  DISCRETE 

C 

1958  X=0 
X2=0 

DO  1951  11  =  1, NOPd) 

X=X+DIST(I,I1)*DURA(I,I1) 

X2=X2+DIST( 1 , 1 1 )»DURA( 1,11 )»*2 
1951  CONTINUE 

ST=SORT(X2X*X) 

C 
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Appendix 


9.4. 


Program  Listing 


of  CASH 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

P.;OGRAH  CASH  31 


WRITTEN 


BY  RUSSELL 


S.  VOGTHANN 


C 
C 
C 
C 
C 

c 
c 
c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 


NOV  86 


THIS  PROGRAM  ALLOWS  THE  USER  TO  USE  THE 
THE  MONTE  CARLO  SIMULATION  FROM  PROGRAM 
BID  PACICAGE  FOR  THE  PROJECT. 


INFORMATION  OBTAINED  FROM 
AN-COST  TO  DETERMINE  A 


VARIABLES: 

ALPHA: 
BETA: 
BHATOC 


): 


BHATK  ): 


CAPITAL: 
CDF(  , 

CMODEL: 

CORR( 

C0ST( 

DF(  , 

DMEAN( 

DSTD( 

DURN( 

DESIRE: 

FRACN( 


): 


): 


): 


): 


INTEREST 

INTEREST 

CONTAINS 

FUNCTION 

CONTAINS 

REGRESSION 

CONTRACTOR'S 

EMPIRICAL 


RATE 

RATE 


ON 

ON 


INTERCEPT 


MONEY 

MONEY 

TERM 


DEPOSITED. 
BORROWED. 
OF  THE 


OF  KEY  EVENT 
COEFFICiENT 
FUNCTION. 
INITIAL 
CUMULATIVE 


COST  AND 
OF  DURATION 


SAMPLE  REGRESSION 
DURATION. 

TERM  OF  THE  SAMPLE 


CAPITAL. 
DISTRIBUTION 

AND  COST  OF  KEY  EVENTS. 

CASH  FLOW  MODEL  IN  DETERMINISTIC 
f(CAPITAL),  2.  PROFIT*f(PROJECT 
SAMPLE  CORRELATION  COEFFICIENT 
KEY  EVENTS. 

USER  DECIDED  COST  TO  RECEIVE 


FUNCTION 

PROBLEM 

COST). 

OF  COST  vs. 


OF  DURATION 


1.  PROFIT= 


AT  KEY  EVENTS 


DURATION 


FOR  PROB- 


OF 


ABUISTIC 
EMPIRICAL 
EVENTS. 
MEAN  OF 
STANDARD 
USER 
CASH 
DESIRED 


CASH  FLOW  PROBLEM. 
DENSITY  FUNCTION  OF 


DURATION 


AND  COST  OF  KEY 


DURATION 
DEVIATION 
DECIDED  DUE 
FLOW  PROBLEM. 

PROFIT  PERCENTAGE 


OF  KEY  EVENTS, 
OF  DURATION 
DATE  OF  KEY 


OF  KEY  EVENTS. 

EVENTS  FOR  PROBABILISTIC 


FOR  DETERMINISTIC 


CASH  FLOW 


PROBLEM. 

EXPECTED  FRACTION 
EVENT  (AFTER  START 


OF  TOTAL  PROJECT 
PERCENTAGE<=>STPERC 


COST  FOR  EACH  KEY 
IS  REMOVED). 


c 

IKEYC  ): 

ARRAY 

CONTAINING 

THE  NODE  NUMBERS  OF  THE  KEY 

EVENTS. 

c 

LL(  ): 

LEFT  ENDPOINTS 

OF  KEY 

EVENT  DISTRIBUTIONS. 

c 

MXPERD: 

MAXIMUM 

NUMBER 

OF  PERIODS  THAT  PROJECT  RUNS 

OVER. 

c 

NCELLSC  ): 

NUMBER 

OF  CELLS 

OF  KEY 

EVENT  DISTRIBUTIONS. 

c 

NCYCLE: 

NUMBER 

OF  TIME 

UNITS  PER  PERIOD. 

c 

NKEYEN; 

NUMBER 

OF  KEY 

EVENTS. 

c 

NRR(  ): 

RIGHT 

ENDPOINTS 

OF  KEY 

EVENT  DISTRIBUTIONS. 

c 

PAY(  ,  ): 

EXPECTED 

CASH 

"INFLOW" 

FOR  EACH  KEY  EVENT  PER  PERIOD 

c 

(DETERMINED  BY 

AN -COST). 

C  PENALTY!  ):  USER  DECIDED  PENALTY  PER  PERIOD 

C  CASH  FLOW  PROBLEMS. 

C  PERCNT(  ,  ):  PERCENTILES  OF  KEY  EVENT 


LATE  FOR  PROBABILISTIC 


DISTRIBUTIONS. 


0PEN(UNIT=2,F1LE=‘CASHFL0U.DAT',STATUS='0LD' ) 
OPEN  (UN  n=3 ,  F 1  LE=  ■  CASHOUT  .  OUT  > ,  ST  ATUS=  ■  NEW '  ) 

IFLAGG=0 
WITE(*,1) 

1  FORMAT{25(/)) 

URITE(*,2) 

2  FORMAT (/20X, • 

&20X, ' 

&20X,  ‘  RUSSELL 

PAUSE 

WRITE(*.1) 


C  INPUT  VALUES  FROM  FILE  CASHFLOW.DAT 


WRITEC*,*)  'INPUTTING  VALUES  FROM  FILE  CASHFLOW.DAT' 
READ(2,90)  NCYCLE 

RE AD (2. 90)  MXPERD 

READ(2,91)  (SOISBUR(I), 1=1, MXPERD) 

90  FORMATdOIS) 

91  FORMAT(5E13.7) 

READ(2,90)  NKEYEN 

READ(2,90)  (IXEY{I),I=1,NXEYEN) 

DO  10  1=1, NKEYEN 

READ(2,91)  (PAY(I,J),J=1,hXPER0) 

10  CONTINUE 

READ(2,91)  STPERC.PINIT 

00  11  1=1, NKEYEN 

REA0(2,91)  OMEAN<I),DSTO(I) 

READ(2,91)  RMEAN(I),RST0(I) 

11  CONTINUE 

READ(2,91)  RMEAN(11),RST0(11) 

DO  12  1=1, NKEYEN 

READ(2,92)  LL(  I  ),NRR(I ),NCELLS(I ),WIDTH( I ) 

READ(2,91)  (DF(I,J),J=1,{NCELLS(I)+2)) 

READ(2,92)  LL(I+10),NRR(I+10),NCELLS( 1+10), WIDTH! 1+10) 

READ(2,91)  <DF(I+10,J),J=1,(NCELLS(I+10)+2)) 

12  CONTINUE 

READ(2,92)  LL(22),NRR(22),NCELLS(22),WIDTH(22) 

READ{2,91)  (DF(22,J),J=1,<NCELLS(22)+2)) 

92  FORMAT(I10,!10,110,F15.5) 

DO  13  1=1, NKEYEN 

READ(2,91)  CORR{I),BHATO(I),BHAT1(I) 

13  CONTINUE 

READ(2,91)  CORR<11),BHATO(11),BHAT1(11) 

DO  U  1=1, NKEYEN 

READ<2,91)  FRACN(I) 

U  CONTINUE 


DO  300  1=1,10 

COST(I)=0.0 
DURN(I)=0.0 
PENALTY! I )=0.0 
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PROGRAM  CASH',//////, 

WRITTEN  BY'./////, 

S.  VOGTMANN ',///) 


300  CONTINUE 


C-- -DETERMINE  THE  EXPECTED  TOTAL  CASH  "INFLOW"  PER  PERIOD 

C 

240  DO  244  1=1,100 

TPAY(I)=0.0 
244  CONTINUE 


DO  242  I=1,MXPERD 
DO  241  J=1,NXEYEN 

TPAY(I)=TPAY(I)+PAY(J,I) 

241  CONTINUE 

242  CONTINUE 


C-- -CALCULATE 
C 


CDF'S  AND  STORE  IN  CDF 


CALL  CUMDIST 
WRITE(*,1) 


1000  WRITE(*,4) 

4  FORMAT(/1X,' INPUT  OPTION  YOU  WANT  TO  TAKE:',//, 

S10X,'1.  VIEW  CASH  FLOW  ARRAYS',/, 

410X,'2.  VIEW  DISTRIBUTION  FUNCTION  INFORMATION',/, 

&10X,'3.  PERFORM  DETERMINISTIC  CASH  FLOW  PROBLEM',/, 

BIOX, '4.  PERFORM  PROBABILISTIC  CASH  FLOW  PROBLEM',/, 

&10X,'5.  PROGRAM  INFORMATION',/, 

410X,'6.  . EXIT  PROGRAM . ',///) 

READ(*,*)  NOPTION 

IF  (NOPTION. LT.1. OR. NOPTION. GT. 6)  THEN 

WRITE(*,1) 

GOTO  1000 


IF 

(NOPTION. EQ.1) 

CALL 

VIEW 

IF 

(NOPTION. EQ. 2} 

CALL 

DISTFN(IFLAGG) 

IF 

(NOPTION. EQ. 3) 

CALL 

DETERM(NOPTION) 

IF 

(NOPTION. EQ. 4) 

CALL 

PROBAB(NOPTION,IFLAGG) 

IF 

(NOPTION. EQ. 5) 

CALL 

HELPMAIN 

IF 

(NOPTION. EQ. 6} 

STOP 

WRITE(»,1) 
GOTO  1000 


SUBROUTINE  C  F  H  E  L  P 


THIS  SUBROUTINE  PROVIDES  INFORMATION  ON  THE  CASH  FLOW  ARRAYS 


% 


SUBRCXJTINE  CFHELP 


c 

WRITE<*,1) 

1  FORMAT(25(/)) 

UR1TE(*,2) 

2  F0RMAT(5X, 'THE  EXPECTED  CASH  FLOW  PER  PERIOD  IS  CALCULATED  BY',/, 

•5X, 'PROGRAM  AN-COST  BY  MEANS  OF  MONTE  CARLO  SIMULATION',//, 

*5X,'IF  THE  USER  HAS  DETERMINED  A  PERCENTAGE  OF  COST  TO  RECEIVE',/, 
*5X,'AT  THE  PROJECT  START,  IT  IS  DENOTED  AS  OCCURRING  IN  PERIOD',/, 
*5X, 'ZERO. ',/////) 

PAUSE 

C 

RETURN 

END 

C . 

c 

c  SUBROUTINE  C  F  L  0  U 

C 

C  THIS  SUBROUTINE  PERFORM  CASH  FLOW  CALCULATIONS 

C 

C . 

c 

SUBROUTINE  CFLOW(PROF I T.RAT lO.CASH, TCAPITAL ,SD I SBUR , PAY, ALPHA, 

*  BETA, RATE, DESI, POWER, MXPERD,FLAG2,CTERM, 

*  TCAPINIT,CM00EL,RMEAN,TPAY) 

C 

INTEGER  MXPERD,FLAG2,CMaOEL 

REAL  RATIO,CASH,TCAPITAL,SDISBOR(100),PAY(10,100),ALPHA,BETA. 

*  RATE, POWER, DESI, PROFIT, CTERM,TCAPIN1T,RMEAN(11),TPAY( 100) 

C 

REAL  TIAF,TIBA,TRETEN,RETEN 

C 

IF  (FLAG2.EQ.1)  THEN 

WRITE(3,1900)  RATIO 

1900  FORMAT (/3X, 'RATIO  (ACTIVITY  WORTH  /  ACTIVITY  COST  )  =',F8.A) 

END  IF 
C 

TIAFsO.OO 

TIBA=0.00 

RETEN=0.00 

TRETEN=0.00 

DO  1510  I=1,MXPER0+1 

C 

C . 

c 

IF  (I.EQ.1)  THEN 

CASH=TCAPITAL-SDISBUR(I) 

CALL  INTRT( I, CASH, POWER, ALPHA, BETA, TIAF,TI BA, TRETEN,FLAG2) 

GO  TO  1510 
END  IF 
C 

C . 

c 

IF  (I.EQ.MXPERD+1)  THEN 
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CASH=CASH+TPAY( I  - 1 )+TRETEN 
CTERM=CASH 

IF  (FLAG2.EQ.1)  THEN 

URITE(3,1991)  CASH 

1991  FORMAT {25X, 'TERMINAL  CASH  POSITION  =',F10.3) 

END  IF 

GO  TO  1510 
END  IF 
C 

C . 

c 

RETEN=TPAY( I • 1 )*RAT IO*RATE 
TRETEN=TRETEN+RETEN 

CASH=CASH+TPAY(I-1)»RATIO*{1-RATE)-SDISBUR(n 

CALL  INTRTC I, CASH, POWER. ALPHA, BETA, TIAF,TIBA,TRETEN,FLAG2) 

IF  (FLAG2.E0.1]  THEN 

URITE(3,1980)  TRETEN.RETEN 

1980  FORMAT (/1 5X, 'CUMULATIVE  RETENTION  =', F10.3,3X, ' RETENT  ION 

•  F9.3/) 

END  IF 
C 

C . 

C 

1510  CONTINUE 

IF  (CMOOEL.EQ.1)  PROFIT=(CASH-TCAPINIT)/TCAPINIT 

IF  (CMOOEL.EQ.2)  PR0FIT=(CASH-TCAPINIT)/RMEAN(11) 

IF  (FLAG2.EQ.1)  THEN 

WRITE<3,1995)  PROFIT 

1995  FORMAT(20X, 'PROFIT  =',F10.3/) 

END  IF 
C 

1500  CONTINUE 
C 

RETURN 

END 

C . 

c 

C  FUNCTION  CUM  (JJ.I) 

C 

C  THIS  FUNCTION  CALCULATES  THE  PROBABILITY  THAT  THE  XEY 

C  IS  REALIZED  IN  PERIOD  I.  IT  USES  A  LINEAR  INTERPOLATION. 

C 

C . 

c 

REAL  FUNCTION  CUMCNEVENT, PERIOD) 

C 

COMMON/CFMV/SDISBUR{100),PAY(10,100),RMEAN(11),PINIT,MXPERD,NKEYEN 

*,IKEY(10),TPAY(100),OMEAN(10),OF(22,102),IL(22>,NRR(22),NCELLS(22) 

•,WIDTH(22),DSTO(10),RSTD(11).CDF(22,102),CORR(11),BHATO(11) 

*,BHAT1(11),FRACN(10) 

COMMON/CFP/ALPHA, BETA, POWER, RATE, DESIRE, NCYCLE,CAPITAL,TOL,CMOOEL 
COMMON/DCV/COST<11),DURN(10),STPERC, PENALTY! 10),PERCNT(22, 20) 

INTEGER  NEVENT, PERIOD, RLEFT, RIGHT 


c 


DOUBLE  PRECISION 


VI, V2, SLOPE, B 


RLEFT=NCYCLE*{PERIOO-1) 

RIGHT=NCYCLE*PERIOO 

C 

C:UM=0.0 
VI  =0.0 
V2=0.0 
SLOPE =0.0 
B=0.0 
C 


IF  (RLEFT.lt. LL(NEVENT)-UIOTH(NEVENT))  THEN 

V1=0.0 
GOTO  4100 
END  IF 

IF  (RLEFT.GT.NRR(NEVENT)+WIDTH(NCVENT))  THEN 

V1=1.0 
GOTO  4100 
END  IF 
C 

DO  4000  K=1,NCELLS(NEVENT)+2 
P1=LL(NEVENT)+giDTH(NEVENT)*(K-2) 
P2=LL(NEVENT)+UIDTH(NEVENT)*(K-1) 

IF  (rleft.gt.pi.and.rleft.le.p2)  then 

IF  (K.E0.1)  THEN 

SL0PE=(CDF(NEVENT,1))/UIDTH(NEVENT) 

ELSE 

SLOPE=(CDF(NEVENT,K)-COF(NEVENT,K-1))/WIDTH(NEVENT) 
ENDIF 

B=CDF(NEVENT,K)-SLOPE*P2 
V1=SLOPE*RLEFT+B 
GOTO  4100 
ENDIF 

4000  CONTINUE 
C 

4100  IF  (RIGHT. LT.LL(NEVEHT)-UIDTH(NEVENT)) 

V2=0.0 
GOTO  4300 
ENDIF 

IF  (RIGHT.GT.NRR(NEVENT)+UIDTH(NEVENT)) 

V2=1.0 
GOTO  4300 
ENDIF 
C 

DO  4200  K=1,NCELLS(NEVENT)+2 
P1=LL(NEVENT)+WIDTH(NEVENT)»(K-2) 
P2=LL(NEVENT)*WIDTH(NEVENT)*(K-1) 

IF  (RIGHT. GT. PI. AND. RIGHT. LE.P2) 

IF  (K.EQ.1)  THEN 

SLOPE=CDF(NEVENT,1)/UIDTH(NEVENT) 

ELSE 

SL0PE=(CDF(NEVENT,K)-CDF(NEVENT,K-1))/WIDTH(NEVENT) 

ENDIF 


THEN 


THEN 


THEN 
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B«CO F ( NE VEN T , K) - SL0PE*P2 
V2=SL0P£»RIGHT+B 
GOTO  4300 
END  IF 

4200  CONTINUE 
C 

4300  CUM=V2-V1 
RETURN 
END 

C . 

c 

C  SUBROUTINE  C  U  M  D  I  S  T 

C 

C  THIS  SUBROUTINE  CALCULATES  THE  CUMULATIVE  DIST.  FUNC.'S 

C 

C . 

c 

SUBROUTINE  CUHDIST 
C 

COMMON/CFMV/SDISBUR(100),PAY(10,100),RMEAN(11),P1N1T,MXPERD,NKEYEN 

*,IKEY(10),TPAY(100),DMEAN(10),DF(22,102).L1-(22),NRR{22),NCELLS(22) 

*,WIDTH(22),DSTD<10),RSTD(11),CDF<22,102),CORR(11),BHAT0(11) 

•,BHAT1{11),FRACN(10) 

DOUBLE  PRECISION  SUM 
C 

MARKIsI 

MARK2sO 

C 

3000  DO  3002  I=MARK1,NKEYEN+MARK2 
SUM=0. 

DO  3005  J=1,NCELLS(n+2 
SUM=SUH+DF(J,J) 

CDF(I,J)=SUM 
3005  CONTINUE 
3002  CONTINUE 
C 

IF  (HARK1.E0.1)  THEN 
HARK1=11 
HARK2=10 
GOTO  3000 
END  IF 
C 

IF  (HARK1.EQ.11}  THEN 

MARK1=22 
MARK2=22-N<EYEN 
GOTO  3000 
END  IF 
C 

RETURN 

END 

C . 

c 

C  SUBROUTINE  D  C  F  H  E  L  P 
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c 

C  THIS  SUBROUTINE  PROVIDES  INFORMATION  ON  THE  CASH  FLOW  CALCULATIONS 

C  IN  THE  CASE  OF  A  DETERMINISTIC  NETWORK. 

C 

C . 

c 

SUBROUTINE  DCFHELP 
C 

WRITE{*,1) 

1  FORMAT(25(/)) 

WRITE(*,2) 

2  FORMAT(5X, 'THIS  PORTION  OF  THE  PROGRAM  DOES  CASH  FLOW  CALCULA-',/, 

*5X,'TIONS  IN  THE  CASE  OF  A  DETERMINISTIC  NETWORK.',//, 

•5X,'YOU  WILL  BE  ASKED  TO  INPUT:',//, 

*10X,'1.  INTEREST  RATE  ON  MONEY  DEPOSITED',/, 

*10X,'2.  INTEREST  RATE  ON  MONEY  BORROWED',/, 

*10X,'3.  RETENTION  RATE',/, 

*10X,'4.  INITIAL  CAPITAL',//. 

*10X,'5.  DESIRED  PROFIT  PERCENTAGE',/, 

*10X,'6.  IF  PROFIT  IS  DEFINED  AS  A  FUNCTION  OF  PROJECT  COST,',/, 

*10X,'  OR  AS  A  FUNCTION  OF  CAPITAL',/, 

*10X,'7.  A  TOLERANCE  LEVEL  FOR  USE  IN  THE  BISECTION  METHOD',//) 

PAUSE 
C 

WRITE(*,10) 

10  FOfiMAT(5</)) 

WRITE(*,3) 

3  FORMAT (5X, 'THIS  CALCULATION  PROCEDURE  USES  THE  BISECTION',/, 

*5X, 'METHOD  TO  CONVERGE  TO  THE  MARKUP  OF  ACTIVITY  COST  THAT',/, 
*5X,'WILL  RESULT  IN  THE  DESIRED  PROFIT  PERCENTAGE.',///, 

*5X,'YOU  MAY  RUN  AS  MANY  ALTERNATIVES  AS  YOU  LIKE.  THE  RESULTS',/, 
*5X,'WILL  BE  SENT  TO  THE  SCREEN,  AND  TO  AN  OUTPUT  FILE  NAMED',/, 

*5X,  "'CASHOUT. OUT"  RESIDING  ON  THE  DEFAULT  DRIVE.',///) 

PAUSE 

C 

RETURN 

END 

C . 

c 

C  SUBROUTINE  D  E  T  E  R  M 

C 

C  THIS  SUBROUTINE  DOES  CASH  FLOW  CALCULATIONS  FOR  DETERMINISTIC 

C  PROBLEMS  AND  CALCULATES  A  FaRM.  IT  CONVERGES  TO  THE  VALUE  USING 

C  THE  BISECTION  METHOD. 

C 

C . 

c 

SUBROUTINE  DETERMLNOPTION) 

C 

COMMON/CFMV/SO I SBUR ( 1 00 ) , PA Y( 10, 1 00 ) , RMEANC 1 1 ) , P I N I T , MXPERD , NKE YEN 
•,IKEY(10),TPAY(100),DMEAN(10),DF(22,102),LL{22),NRR(22),NCELLS(22) 
*,WIDTH{22),DSTD(10),RSTD(11),C0F(22,102),CORR(11),BHAT0(11) 

•,BHAT1(11),FRACN(10) 
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COMMON/CFP/ALPHA, BETA, POWER. RATE.DESIRE.NCYCLE, CAPITAL, TOL.CMOOEL 
INTEGER  FLAG2,CMOOEL 
C 

1549  WRITE(*,1550) 

1550  FORMAT(25(/)) 

WR1TE(*,1551) 

1551  FORMAT (////I OX, '1.  PROCEED  WITH  CASH  FLOW  CALCULATIONS',/, 

*10X,'2.  DETERMINISTIC  CASH  FLOW  INFORMATION',/, 

*10X,*3.  RETURN  TO  MAIN  MENU',///) 

WRITE(*,1552) 

1552  FORMAT(5X, 'ENTER  CHOICE') 

READ(*,*)  ICHOICE 

IF  (ICHOICE. EQ. 2)  THEN 

CALL  DCFHELP 
GOTO  1549 
END  IF 

IF  (ICHOICE. EQ. 3)  RETURN 

C 

CALL  INPUT(NOPTION,ISTOP,IFLAGG) 

C 

POWER=NCYCLE/365.0 

DESI=DESIRE/100.0 

C 

C---THE  FOLLOWING  IS  A  TESTING  OF  VALUES  TO  GET  A  RIGHT  END  STARTING 

C-- -POINT  FOR  THE  BISECTION  METHOD 

C 

TCAPINIT=CAPITAL 

TCAPITAL»CAPITAL+PIHIT 

FLAG2»0 

TESTVAL=2 

520  CALL  C  FLOW( PROF  n , TESTVAL , CASH , TCAPI TAL , SD I SBUR , PAY , ALPHA , BE  T A , 

*  rate, DESI, POWER, MXPERD,FLAG2,CTERM,TCAPINIT,CMOOEL, 

*  RMEAN.TPAY) 

C 

IF  (PROFIT. GT. DESI)  THEN 

RATI02=TESTVAL 
GO  TO  530 
ELSE 

TESTVAL=TESTVAL+0.5 
G  TO  520 
END  IF 
C 

C---NOW  I  USE  BISECTION  TO  CONVERGE  TO  THE  FaRM 
C 

530  RATI01=0.50 

CALL  CFL0W(PR0FT1,RATI01, CASH, TCAPITAL.SDISBUR, PAY, ALPHA, BETA, 

*  rate, DESI, POWER, MXPER0,FLAG2,CTERM,TCAPINIT, 

*  CMOOEL, RMEAN.TPAY) 

C 

C---THE  FOLLOWING  IS  BASICALLY  A  WHILE  LOOP  FOR  THE  BISECTION 
C 

600  RATIO=RATIO1+(RATIO2-RATIO1)/2.0 
C 
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CALL  CFLOW(PROF IT, RAT  10, CASH, TCAPITAL.SOISBUR, PAY, ALPHA, BETA, 

'  rate, DESI, POWER, MXPERO,FLAG2,CTERM,TCAPINIT,CMOOEL, 

'  RHEAN.TPAY) 

IF  (ABS(PROFIT-DESI).LT.TOL)  THEN 

CALL  DETOUTCNOPTION, RATIO) 


IF  ( (DESI -PROFTI )»(DESI -PROF  I T).LT. 0.00) 
RATI02=RATI0 


RATI01=RATI0 

PR0FT1=PR0FIT 


GO  TO  600 

RETURN 

END 


SUBROUTINE  D  E  T  0  U  T 


THIS  SUBROUTINE  OUTPUTS  DATA  TO  FILE  "CASHOUT .OUT" 


SUBROUTINE  0ETOUT(NOPTION, RATIO) 

COHMON/CFMV/SDISBUR(100),PAY(10,100),RHEAN(11),PINIT,HXPERD,NKEYEN 

•,IKEY(10),TPAY(100),OMEAN<10),DF(22,102),LL(22),NRR(22),NCELLS(22) 

*,UIDTH(22),DSTD<10),RSTD(11),COF(22,102),CORR{11),BHATO(11) 

*,BHAT1(11),FRACN(10) 

COMMON/CFP/ALPHA, BETA, POWER, RATE, DESIRE, NCYCLE,CAPITAL,T0L,CM0DEL 

REAL  RATIO 

INTEGER  FLAG2,NOPTION,CMOOEL 


FLAG2=1 

TCAPINIT=CAPITAL 

TCAPITAL=CAPITAL»PINIT 

CALL  CFLOW(PROFIT,RATIO,CASH,TCAPITAL,SDISBUR, PAY, ALPHA, BETA, 

•  RATE,DESI,POWER,MXPERD,FLAG2,CTERM,TCAPINIT,CMOOEL, 

•  RMEAN,TPAY) 

TWORTH=RMEAN( 1 1 )»RATIO 
WRITE{3,1900) 

WRITE(*,1900) 

FORMATdOX,  '**»*****DETERMINISTIC  RESULTS********',//) 

WRITE(3,1901)  DESIRE 

WRITE(*,1901)  DESIRE 

FORMAT(2X,'IN  ORDER  TO  MAXE ■ , F6. 2, 'X  PROFIT  IN  THIS  PROJECT') 

WRITE(3,1902)  RATIO 

WRITE(*,1902)  RATIO 
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1902 

FORMAT (/2X, 'THE 

BIDDING  SHOULD 

BE',F8.4,' 

WRITE(3,1903) 

RMEAN(11),TWORTH 

WR!TE(*,1903) 

RMEAN{11),TWORTH 

1903 

FORMAT(/2X, 'PROJECT 

COST  = 

',F12.4,' 

THAT 

WRITE(3,1904) 

WRITE(*,1904) 

1904 

FORMAT (/2X, 'UNDER 

THE  CONSTRAINTS: 

•) 

WRITE(3,1905) 

CAPITAL 

WRITE(*,1905) 

CAPITAL 

1905 

FORMAT(/8X, 'INITIAL 

CAPITAL 

= 

•,F10.2) 

WRITE(3,1906) 

ALPHA 

WRITE(3,1907) 

BETA 

WRITE(3,1908) 

RATE 

WRITE(*,1906) 

ALPHA 

WRITE(*,1907) 

BETA 

WRITE(*,1908) 

RATE 

1906 

FORMAT(/8X, 'INTEREST  RATE 

ON 

MONEY 

DEPOSIT 

1907 

FORMAT(/8X,' INTEREST  RATE 

ON 

MONEY 

BORROWT 

1908 

FORMAT (/8X, 'RETENTION  RATE 

= 

',F6.4) 

TIMES  OF 


IS‘,F12.4,) 


=',F6.4) 

=‘,F6.4) 


C 


RETURN 

END 


THE' ) 


C . 

c 

C  SUBROUTINE  D  I  S  T  F  N 

C 

C  THIS  SUBROUTINE  ALLOWS  THE  USER  TO  VIEW  THE  DISTRIBUTION  FUNC.'S 

C  OF  DURATION  AND  COST  OF  THE  KEY  EVENTS  OF  THE  NETWORK.  IT  ALSO 

C  WILL  DISPLAY  THE  CORRELATION  COEFFICIENT  BETWEEN  THE  DURATION  AND 

C  COST  OF  THE  KEY  EVENTS,  AS  WELL  AS  DETERMINE  PERCENTILES  OF  THE 

C  DISTRIBUTIONS. 

C 

C . 

c 

SUBROUTINE  DI STFN( I  FLAGG) 

C 

COMMON/CFMV/SDISBUR(100),PAY(10,100),RMEAN(n),PINIT,MXPERD,NKEYEN 

*,IKEY(10),TPAY(100),DMEAN(10),OF(22,102),LL(22),NRR(22),NCELLS(22) 

*,WIDTH(22),DSTD(10),RSTD(11),CDF(22,102),CORR(11),BHAT0(n) 

*,BHAT1(11),FRACN<10) 

COMMON/DCV/COST(11),DURN(10),STPERC,PENALTY(1O),PERCNT(22,20) 

REAL  LD,LC 
CHARACTER*!  SFLAG 
C 

799  WRITE(*,800) 

800  FORMAT(25(/)) 

WRITE(*,801) 

801  FORMATdX, 'DISTRIBUTION  INFORMATION:',//, 


&5X, 

'1. 

DISPLAY 

DURATION/COST 

DIST. 

■S',/, 

&5X, 

2. 

DISPLAY 

CORRELATION/REGRESSION 

DATA' ,/, 

&5X, 

3. 

DISPLAY 

PERCENTILES',/, 

&5X, 

•4. 

DISPLAY 

COST  FRACTIONS 

AT 

KEY  EVENTS',/, 

&5X, 

5. 

- -RETURN 

TO  MAIN  MENU- 

160 


&5X,'6.  DISTRIBUTION  INFORMATION',//, 

KX, '7.  EXIT  PROGRAM',//, 

SIX, 'ENTER  CHOICE',///) 

C 

READ(»,»)  NV 

GOTO  (810,850,870,900, 804 , 806,807) , NV 

C 

C-- -RETURN  TO  MAIN  MENU 
C 

804  RETURN 
C 

C---CALL  SUBROUTINE  ON  DISTRIBUTION  INFORMATION 

C 

806  CALL  DTHELP 
WRITE(*,800) 

GOTO  799 

C 

C---EXIT  PROGRAM 

C 

807  STOP 
C 

C-- -DISPLAY  COST  FRACTIONS  AT  KEY  EVENTS 
C 

900  WRITE(*,800) 

WRITE(*,903) 

903  FORMAT{5X,'THE  SIMULATION  RESULTED  IN  THE  FOLLOWING  FRACTIONS',/ 

*,5X,'0F  COST  AT  THE  KEY  EVENTS:',//, 

•20X,'KEY  event  FRACTION  OF  COST',//) 

ITEMP=0 


904 


902 

901 


WRITE(*,904)  ITEMP.STPERC 
FORMAT(20X,I5,15X,F5.2) 

DO  901  I=1,NKEYEN 

WRITE(*,902)  IKEY(I),FRACN(I) 
FORHAT(20X,15,15X,F5.2) 

CONTINUE 


PAUSE 

WRITE!*, 800) 
GOTO  799 


C 

C-- 

C 


■WRITE 


EMPIRICAL 


810 


WRITE(*,800) 
CALL  DWRITE 
PAUSE 

GOTO  799 


-WRITE 


850 


DENSITIES 


TO  SCREEN 


INFORMATION 


ON  CORRELATION 


AND  LEAST  SQUARES 


ESTIMATORS 


WRITE!*, 800) 

WRITE!*, 851) 

851  FORMAT! IX, 'INPUT 

SIX, 'LEAST  SQUARES 

READ!*,*)  NKEY 


NUMBER 

DATA 


OF  key  event 
!0  FOR  TOTAL 


TO 

COST 


DISPLAY  CORRE.-nON',/, 
vs.  PROJECT  DURATION)',/) 


IF  (NKEY.EO.O)  GOTO  860 

IF  (NKEY.LT.IKEY(I).OR.NKEY.GT.IKEY(NKEYE(I))  THEN 

WRITEC*,*)  'OUT  OF  RANGE  --■  RETURN  TO  MAIN* 
RETURN 
END  IF 
C 

DO  252  I=1.NICEYEN 

IF  (IKEYCD.EQ.NKEY)  NNN=I 

252  CONTINUE 
C 


IF  (C0RR(NNN).EQ.-9999.)  THEN 

WRITE(*,800) 

WRITE(*,856) 

856  F0RMAT(5X, 'NETWORK  IS  DETERMINISTIC!!!*.// 

&5X,*THIS  ANALYSIS  IS  NOT  APPLICABLE.*) 

PAUSE 

GOTO  799 
ELSE 

WRITE(»,800) 

WRITE(*,852)  IKEY(NNN) 

852  FORMAT (20X, ******  KEY  EVENT *.15,*  ******,////) 

WRITE(*,853)  BHATO(NNN),BHAT1(NNN),CORR(NNN) 

853  FORMAT (1 OX, 'SAMPLE  REGRESSION  FUNCTION:*,//, 

&15X,*COST  =  >,F12.2,*  ♦  ',F12.2,*  *  DURATION*,///, 

&10X, 'SAMPLE  CORRELATION  COEFFICIENT®  *,F4.2,///) 

PAUSE 

GOTO  799 
END  IF 
C 

860  IF  (CORR(11).EQ.-9999.)  THEN 

WRITE(*,800) 

WRITE(*,856) 

PAUSE 

GOTO  799 
ELSE 

WRITE{*,800) 

WRITE!*, 854) 

854  FORHAT(20X, ******TOTAL  COST  vs.  PROJECT  DURATION** 

WRITE!*, 855)  BHAT0!11  ),BHATU11  ),CORR!  1 1 ) 

855  FORMATC10X, 'SAMPLE  REGRESSION  FUNCTION:*,//, 

&15X, 'TOTAL  COST  =  *,F10.2,*  ♦  *,F10.2,*  *  PROJECT 

&10X, 'SAMPLE  CORRELATION  COEFFICIENT®  *,F4.2,///) 

PAUSE 

GOTO  799 
END  IF 
C 

C-- -DETERMINE  PERCENTILES  OF  DISTRIBUTIONS  AND  WRITE  TO 

C 

870  IF  !IFLAGG.EQ.O)  CALL  PRCNTL! I  FLAGG) 

875  WRITE!*, 800) 

WRITE!*, 876) 

876  FORMAT!5X, 'THIS  PORTION  OF  THE  PROGRAM  WILL  DISPAY* 

&2X, 'PERCENTILES  OF  THE  DISTRIBUTIONS.*,///) 


***',////) 

DURATION* ,///, 

SCREEN 
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c 

CALL  PWRITE 
GOTO  799 
C 

RETURN 

END 

C . 

c 

C  SUBROUTINE  D  T  H  E  L  P 

C 

C  THIS  SUBROUTINE  PROVIDES  INFORMATION  ON  THE  EMPIRICAL  DISTRIBU- 

C  TIONS  OF  THE  KEY  EVENTS  DETERMINED  IN  PROGRAM  AN-COST. 

C 

C . 

c 

SUBROUTINE  DTHELP 
C 

100  URITE{*,1) 

1  FOfiMAT(25(/)) 

WRITE!*, 2) 

2  FORMAT (5X, 'CHOOSE  INFORMATION  OPTION',//, 

•10X,'1.  REALIZATION  TIME  &  COST  DISTRIBUTIONS',/, 

*10X,'2.  SAMPLE  REGRESSION  FUNCTION  &  CORRELATION  COEF.',/, 

*10X,'3.  DISTRIBUTION  PERCENTILES',/, 

•10X,'A.  COST  FRACTIONS  AT  KEY  EVENTS',/, 

•10X,'5.  RETURN  TO  DISTRIBUTION  MENU',//) 

READ!*,*)  NC 
C 

IF  !NC.EQ.5)  return 
IF  !NC.LT.1.0R.NC.GT.4)  THEN 

WRITE!*,*)  'OUT  OF  RANGE  •••  RETURN  TO  DIST.  MENU' 

RETURN 
END  IF 
C 

GOTO  !10,20,30,40),NC 
C 

10  WRITE!*, 1) 

WRITE!*, 11) 

11  FORMAT!5X, 'THE  REALIZATION  TIME  AND  COST  DISTRIBUTIONS  WERE',/, 

*5X, 'DETERMINED  VIA  MONTE  CARLO  SAMPLING  BY  PROGRAM  AN-COST . ' , // , 

*5X,'THE  COST  DISTRIBUTIONS  ARE  THE  COST  OF  THE  SUBGRAPHS  OF',/, 

*5X,'THE  KEY  EVENTS.  IF  THERE  WERE  COMMON  ACTIVITIES  TO  MORE',/, 
*5X,'THAN  ONE  KEY  EVENT,  IT'S  COST  WAS  SEPARATED  BY  AN  ALGO-',/, 
*5X,'RITHM  THAT  ASSIGNED  MORE  WEIGHT  TO  THE  KEY  EVENT  THAT',/, 
*5X,'WAS  REALIZED  EARLIEST  AND  HAD  LOWER  VARIANCE.',///) 

PAUSE 

GOTO  100 
C 

20  WRITE!*, 1) 

WRITE!*, 21) 

21  FORMAT!5X, 'THE  SAMPLE  REGRESSION  FUNCTION  IS  DETERMINED  VIA',/, 

*5X, 'LEAST  SQUARES,  AND  THE  SAMPLE  CORRELATION  COEFFICIENT  IS',/, 
•5X, 'CALCULATED  IN  THE  STANDARD  MANNER  OVER  THE  INDIVIDUAL',/, 
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*5X, 'NETWORK  REALIZATIONS  IN  THE  MONTE  CARLO  SIMULATION.',///, 

*5X, 'THESE  VALUES  WILL  GIVE  AN  INDICATION  OF  THE  RELATIONSHIP',/, 
*5X, 'BETWEEN  THE  COST  AND  REALIZATION  TIME  OF  THE  KEY  EVENTS,',/, 

•SX.'AND  MAY  BE  HELPFUL  WHEN  PREPARING  A  BID  PACKAGE.',///) 

PAUSE 

GOTO  100 


30 

31 


WRITE(*,1) 
WRITE(*,31) 
FORMAT(5X, 'THE 
*5X,'BY  LINEAR 

*5X, 'FUNCTIONS.',//, 
*5X,'A  VALUE  OF 
•5X, 'COMPUTED 
*5X, 'WAS  TOO 
PAUSE 

GOTO  100 


PERCENTILES 

INTERPOLATION 


OF  THE  DISTRIBUTIONS 
OF  THE  CUMULATIVE 


ARE  CALCULATED',/, 
DISTRIBUTION' ,/, 


-1  INDICATES  THAT  A  VALUE  COULD 
BECAUSE  THE  RANGE  OF  THE  EMPIRICAL 
NARROW',///) 


NOT  BE  PROPERLY',/, 
DISTRIBUTION',/, 


40 

41 


811 


WRITE(*,1) 
WRITE(*,41) 
FORMAT<5X,'THE 
*5X,'AT  EACH 
*5X,'PLES. 


FRACTION 
KEY  EVENT 
NOTE:  THIS 


OF  TOTAL  PROJECT 
IS  THE  AVERAGE  OVER 
FRACTION  IS  AFTER 


*5X, 'TAKEN 
PAUSE 

GOTO  100 


OUT  TO  RECEIVE  AT  THE  PROJECT 


THAT  IS  RECEIVED',/, 
MONTE  CARLO  SAM-',/, 
PERCENTAGE  IS  ',/, 
START.',///) 


COST 

ALL 

THE 


RETURN 

END 


SUBROUTINE  D  W  R  I  T  E 

THIS  SUBROUTINE  WRITE'S  THE  DISTRIBUTIONS  TO  THE  SCREEN 


SUBROUTINE 


DWRITE 


COMMON/CFMV/SDISBUR<100),PAY(10,100),RMEAN(11),PINIT,MXPERD,NKEYEN 

*,IKEY(10),TPAY(100),DMEAN(10),DF(22,102),LL(2Z),NRR(2Z),NCELLS(Z2) 

*,WIDTH(22),DSTD<10),RSTD(11),CDF(22,102),CORR(11),BHAT0(11) 

*,BHAT1(11),FRACN(10) 

COMMON/DC'  /COST( 11), DURN( 10), STPERC,PENALTY(10),PERCNT(22, 20) 

REAL  LC,LD,RC,RD 
CHARACTER‘1  SFLAG 


WRITE!*, 811) 

FORMATCIX,' INPUT  NUMBER  OF  KEY  EVENT 

&1X,'(0,  FOR  TOTAL  COST)',/) 

READ!*,*)  NKEY 

IF  (NKEY.EO.O)  GOTO  830 

IF  (NKEY. LT.IKEY(I). OR. NKEY. GT.IKEY(NKEYEN)) 


TO  DISPLAY 


DIST. 


FUNC. 'S' , 


THEN 
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-■i 


-1 


WRITEC*,*)  'OUT  OF  RANGE  ---  RETURN  TO  MENU' 

RETURN 
END  IF 
C 

DO  230  1=1,NKEYEN 

IF  (IKEY(I).EQ.NKEY)  NNN=I 

230  CONTINUE 
C 

WRITEC*, 800) 

800  FORMAT(25(/)) 

WRITEC*, 812) 

WRITEC*, 813) 

81 2  FORMAT  C  20X , ' DURAT I ON ' , 28X , ' COST ' ) 

813  FORMATC11X, 'LEFT',4X, 'RIGHT ',4X, 'PROS. ',14X, 'LEFT',4X, 'RIGHT ',4X, 
S'PROB.',//) 

LD=0 

RD=0 

LC=0 

RC=0 

ILIMIT=MAXCNCELLSCNNN)+2,NCELLSCNNN+10)+2) 

DO  820  1=1,ILIMIT 

IF  CMOOCI,15).EQ.O)  THEN 

WRITEC*,*)  'Hit  Return  for  more.' 

READC*,893)  SFLAG 
893  FORMAT CA1) 

END  IF 

IF  CI.EQ.1)  THEN 

WRITEC*, 814)  t-C-CN*IN),DFCNNN,I),LLCNNN+10),DF(NHN+10,l) 
LD^LLCHNN) 

RD=LD+WIDTHCNNN) 

LC=LLCNNN''’10) 

RC=LC+WIDTHCNNN+10) 

GOTO  820 

ELSE  IF  CI.EQ.ILIMIT)  THEN 

IF  CNCELLSCNNN).EO.NCELLSCHNN+10))  THEN 

WRITEC*, 815)  NRRCNNN),DFCNNN,I),NRRCNNN+10),DFCNNN+10,I) 
ELSE  IF  CNCELLSCNNN).GT.NCELLSCNNN+10))  THEN 

WRITEC*, 821)  NRRCNNN).DFCNNN,I) 

ELSE 

WRITEC*, 822)  NRRCNNN+10),DFCNNN+10, I ) 

END  IF 

WRITEC*,*)  'Hit  return  to  continue' 

READC*,893)  SFLAG 
GOTO  820 
ELSE 

IF  CHCELLSCNNN)+2.GT.I .AND.NCELLSCNNN+10)+2.GT.I) 

WRITEC*, 816)  LD,RD,0FCNNN,I),LC,RC,DFCNNN+10,I) 

ELSE  IF  CNCELLSCNNN)+2.EQ.I)  THEN 

WRITEC*, 823)  NRRCNNN),DFCNNN,I),LC,RC,DFCNNN+10,I) 

ELSE  IF  CNCELLSCNNN)+2.LT.I)  THEN 

WRITEC*, 824)  LC,RC,DFCNNN+10,I) 

ELSE  IF  CNCELLSCNNN+10)+2.EO.I)  THEN 

WRITEC*, 825)  LD,RD,DFCNNN, I ),NRRCNNN+10),DFCNNN+10, I ) 
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ELSE  IF  (MCELLS(NNN+10)+2.LT.I)  THEN 

WRITE(»,826)  LD,RD,OF(NNK,I) 

END  IF 
LD=RD 

RD=RD+UIDTH(NNN) 

LC*RC 

RC=RC*WIDTH{NNN+10) 

END  IF 
B20  CONTINUE 

814  F0RMAT(11X,'----',2X,I5,5X,F6.4,16X,'----',2X,I5,5X,F6.4) 

815  FORMAT(7X,I5.9X,' - ■ ,2X, F6.4,12X, I5.6X, • -  •,F6.4,/7) 

821  FORMAT{7X.I5.9X.' - • .2X, F6.4.//) 

822  FORMAT(45X,I5.6X,' - • ,5X, F6.4,//) 

816  FORMAT{7X.F8.2,2X,F8.2,2X,F6.4.12X,F8.2,2X.F8.2,2X,F6.4) 

823  FORMATCTX, 15, 8X, • - ' .2X,F6.4,12X.F8.2.2X,F8.2,2X, F6.4) 

824  FORMAT(45X,F8.2,2X,F8.2,2X,F6.4) 

825  FORMAT(7X,F8.2,2X,F8.2,2X,F6.4,12X,I5.5X,' - •.2X,F6.4) 

826  FOfiMAT(7X,F8.2,2X,F8.2,2X,F6.4) 

C 

C---ECHO  MEANS  AND  STANDARD  DEVIATIONS  OF  DURATION  AND  COST 
C 

WRITE!*, 818)  DMEAN(NNN),RMEAN(NNN) 

WRITE!*, 819)  DSTD!NNN),RSTD!NNM) 

818  FORMAT!/////, 5X,'  MEAN  =  • ,F10.2,20X, 'MEAN  =',F10.2) 

819  FORMAT !5X, 'STD  DEV.  =  • , F10.2,20X, 'STD  DEV.  =',F10.2,//) 

RETURN 

C 

C-- -DISTRIBUTIONS  FOR  TOTAL  COST  DISTRIBUTION 

C 

830  WRITE!*, 800) 

WRITE!*, 832) 

WRITE!*, 833) 

832  FORMAT !20X, 'COST') 

833  FORMAT!) IX, 'LEFT ',4X, 'RIGHT •,4X, 'PROS.'//) 

LC=0 

RC=0 

ILIMIT=NCELLS!22)+2 
DO  840  I=1,ILIMIT 

IF  !MOO!I,15).EQ.O)  THEN 

WRITE!*,*)  'Hit  Return  for  more.' 

READ!*, 893)  SFLAG 

END  IF 

IF  fI.EO.1)  THEN 

WRITE!*, 834)  LL!22),DF!22, I ) 

LC=LL!22) 

RC=LC+WIDTH!22) 

GOTO  840 

ELSE  IF  !I.EQ.ILIMIT)  THEN 

WRITE!*, 835)  NRR!22) ,DF!22, I ) 

WRITE!*,*)  'Hit  return  to  continue' 

READ!*, 893)  SFLAG 

GOTO  840 


ELSE 


LC,RC,DF(22.I) 


URITE(*,836) 

LC=RC 

RC«RC-^IDTH(22) 

END  IF 
840  CONTINUE 

834  FCRMATCSX, ■ - • ,5X, I5,5X,F6.4) 

835  FORMAT(7X,I5,9X,' - ' ,2X,F6.4,//) 

836  F0RMAT{7X.F8.2,2X,F8.2,2X,F6.4) 

C 

C---ECHO  MEAN  AND  STANDARD  DEVIATION  OF  TOTAL  COST 
C 

URITE(*,838)  RMEANdD.RSTDdl) 

838  FORMAT(/////,5X.'  MEAN  *  •,F10.2.7X, ‘STD.  DEV.  •■,F10.2) 

C 

RETURN 

END 

C . 

c 

C  SUBROUTINE  H  E  L  P  M  A  I  N 

C 

C  THIS  SUBROUTINE  PROVIDES  GENERAL  INFORMATION  ABOUT  PROGRAM  CASH 

C 

c . 

c 

SUBROUTINE  HELPMAIN 
C 

URITE<*,1) 

1  FORMAT{25(/)) 

WRITE(*,2) 

2  FORMATd5X,'P  ROGRAM  CAS  H',///, 

*5X,'THIS  PROGRAM  IS  DESIGNED  TO  ASSIST  THE  PROJECT  MANAGER  IN',/, 
*5X, 'DETERMINING  A  BID  PACKAGE  FOR  PROJECTS  THAT  CAN  BE  MODELED',/, 

•5X,‘BY  DIRECTED  ACYCLIC  NETWORKS.',///) 

PAUSE 

WRITE(*,3) 

3  FORMAT (///5X, 'BEFORE  THIS  PROGRAM  CAN  BE  RUN,  YOU  NEED  TO  RUN',/, 

•5X, 'PROGRAM  AN-COST.  AN-COST  WILL  CREATE  FILE  CASHFLOW. OAT ',/ , 

*5X,'WITh  THE  NECESSARY  DATA.',///) 

PAUSE 

WRITE(*,1) 

WRITE(*,4) 

4  F0RMAT(5X, 'THIS  PROGRAM  ALLOWS  THE  FOLLOWING:',//, 

*10X,'1.  VIEWING  OF  CASH  FLOW  ARRAYS',/, 

•10X,'2.  VIEWING  OF  KEY  EVENT  DISTRIBUTION  INFORMATION',/, 

•10X,'  ---REALIZATION  TIME  DISTRIBUTION',/, 

*10X,'  ---COST  DISTRIBUTION',/, 

*10X,'  ---REGRESSION  FUNCTION  AND  CORRELATION  COEF.',/, 

•10X,'  (DURATION  vs.  COST)',/, 

*10X,'  ---PERCENTILES  OF  DISTRIBUTIONS',/, 

•10X,'  ---FRACTION  OF  PROJECT  COST  AT  KEY  EVENTS',/, 

*10X,'3.  DETERMINISTIC  CASH  FLOW  CALCULATIONS',/, 

*10X,'4.  PROBABILISTIC  CASH  FLOW  CALCULA’’IONS' ,///, 


>  Fji  »ff  'V  ’V.  '^Ji^Jvr 


*5X,'N0TE:  FOR  MORE  INFORMATION  ON  ANY  OF  THESE  TOPICS,*,/, 

*5X,'  CHOOSE  INFORMATION  ON  SUBMENUS.*,//) 

PAUSE 

WRITE(*,1) 


SUBROUTINE 


INPUT 


THIS  SUBROUTINE  OBTAINS  NEEDED  INPUT  VALUES 


SUBROUT INE  INPUT(NOPTION,ISTOP,I FLAGG ) 

COMMON/CFMV/SOISBUR(100),PAY(10,100),RMEAN(11).PINIT,MXPERD,NXEYEN 

*,IKEY(10),TPAY(100),DMEAN(10),DF<22,102),LL{22),NRR(22),NCELLS(22> 

*.UIDTH(22),DSTD(10),RSTD(11),CDF(22.102).CORR(11>,BHAT0(11) 

•.BHAT1<11),FRACN(10) 

COMMON/CFP/ALPHA, BETA, POWER, RATE, DESIRE, NCYCLE, CAPITAL, TOL,CMOCEL 
COMMON/DCV/COST(11),OURN{10),STPERC.PENALTY(10),PERCNT(22,20) 
INTEGER  CMOOEL 
CHARACTER*!  NCHAR 


URITE(*,325) 

325  FORMAT(25{/)) 

WRITE!*, 300) 

300  FORMAT(5</),1X,*  INPUT 

READ!*,*)  ALPHA 

WRITE!*, 301) 

301  FORMAT!5!/),1X,* INPUT 

READ!*,*)  BETA 

WRITE!*, 302) 

302  FORMAT!5!/), IX, 'INPUT 

READ!*,*)  RATE 

IF'NOPTION.EO.3)  T 

WRITE!*, 303) 

303  FORMAT!5!/), IX, 'INPUT 
READ!*,*)  DESIRE 


INTEREST  RATE  ON  MONEY  DEPOSITED*) 


INTEREST  RATE  ON  MONEY  BORROWED*) 


RETENTION  RATE*) 


DESIRED  PROFIT  PERCENTAGE') 


WRITE!*, 304) 

304  FORMAT!5!/), IX, 'INPUT  INITIAL  CAPITAL*) 

READ!*,*)  CAPITAL 

IF  !NOPTION.EQ.3)  THEN 

WRITE!*, 305) 

305  FORMAT!5!/),1X,' INPUT  TOLERANCE  LEVEL  FOR  BISECTION  METHOD') 

READ!*,*)  TOL 

310  WRITE!*, 306) 

306  FORMAT!5!/), IX, 'INPUT  PROFIT  MODEL  THAT  YOU  WANT  TO  BE  USED*,//, 

i5X,*1.  PROFIT  .  f!CAPITAL)',/, 

«5X,'2.  PROFIT  •  flPROJECT  COST)*,//) 


TOLERANCE  LEVEL  FOR  BISECTION  METHOD') 


1^ 


READ(*,*)  CMOOEL 

IF  (Ct100EL.LT.1.0R.CMCX)EL.GT.2)  GOTO  310 

END  IF 
C 

C---IF  DETERMINISTIC  PROBLEM,  RETURN 

C 

IF  (NJ?riOK.EQ.3)  RETURN 

C 

WRITE(»,319) 

319  FORMAT(//,1X,'YOU  WILL  NOU  BE  ASKED  TO  INPUT  THE  COST  THAT',/, 

i1X,'YOU  WILL  --QUIRE  AT  THE  KEY  NODES,  AND  THE  DELIVERY',/, 

&1X, 'DATES  OF  THE  KEY  NMES.',//, 

45X,'N0TE:  input  THE  COST  FOR  THE  ENTIRE  SUBGRAPH  OF  THE',/, 


&5X,' 

KEY  EVENT. 

THE  PROGRAM 

WILL  REMOVE 

THE  ALLOTTED 

&5X,' 

PERCENTAGE 

TO  RECEIVE 

AT  THE  PROJECT 

START.',//) 

PAUSE 

DO  320 

11=1,1 

NKEYEN 

326 

WRITEC* 

.325) 

WRITEC* 

.330) 

IKEYCII) 

330 

FORMAT C/20X. 

'  FOR  KEY 

EVENT  ',13, 

* . ',////) 

WRITEC* 

.327) 

327 

FORMAT CSX, 

'DO 

YOU  WANT 

TO  EXAMINE 

THE  FOLLOWING 

BEFORE',/, 

&5X, 'PROCEEDING 

WITH  THE 

INPUT:',///, 

&10X,'1.  EMPIRICAL  DENSITIES',/, 

&10X,'2.  PERCENTILES  OF  DISTRIBUTIONS’,/, 

&10X,'3.  PROCEED  WITH  INPUT',/, 

410X,'4.  •• -RETURN  TO  MAIN  MENU- --’,//) 

READC*,*)  IVAL 

IF  <IVAL.E0.4)  RETURN 

IF  <IVAL.LT.1.0R.IVAL.GT.3)  THEN 

WRITE(*,*)  'VALUE  OUT  OF  RANGE  ---  RETURN  TO  MAIN  MENU' 
RETURN 
END  IF 

IF  (IVAL.EO.I  )  THEN 
CALL  DWRITE 
GOTO  326 

ELSE  IF  (IVAL.EQ.2)  THEN 

IF  (IFLAGG.EQ.O)  CALL  PRCNTL(IFLAGG) 

CALL  PWRITE 
GOTO  326 
END  IF 


C 


WRITE(*,321)  IKEY(II) 

321  FORMAT(//, IX, 'INPUT  DURATION 

READC*, •)  DURM(II),COSTCIl) 

WRITE(*,322)  IKEY(II) 

322  FORMAT!//, IX, 'INPUT  THE  LATE 

«,1X, 'PER  PERIOD',///) 

READC*,*)  PENALTYCII) 

320  CONTINUE 
C 

TESUM=0.0 


^  - 


AND  COST  DECIDED  ON  AT  KEY  NODE ',13) 


PENALTY  FOR  KEY  EVENT ', 14,//, 


i 
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DO  323  I>1,NKEYEN 
TESUM=TESUM+COST(I) 
CONTINUE 

COST ( 1 1 )=TESUM*STPERC 


SUBROUTINE  I  N  T  R  T 


THIS  SUBROUTINE  CALCULATES  INTEREST  IN  EACH  PERIOD 


SUBROUTINE  INTRT( I , CASH, POWER, ALPHA, BETA, TIAF.TIBA.TRETEN, FlAG2) 
INTEGER  I,FLAG2 

REAL  CASH, POWER, ALPHA, BETA, TIAF,T1BA,TRETEN 


TRETEN=TRETEN*(1*ALPHA)**POWER 
IF  (CASH. GE. 0.00)  THEN 

GA=CASH*(1+ALPHA)**POWER-CASH 
TIAF»TIAF+GA 
CASHsCASH'«'GA 

IF  (FLAG2.Ea.1}  THEN 

WRITE(3,1300)  I,GA,CASH 

FORHAT(3X,'I  =',I5,5X,'IAF 
END  IF 


=',F10.3,5X,'CASH 


*',F10.3) 


GB=-1.0*CASH*{1+BETA)**POWER+CASH 

TIBA-TIBA+GB 

CASH=CASH-GB 

IF  (FLAG2.EQ.1)  THEN 

WRITE(3,1305)  I,GB,CASH 

FORHAT{8X,'I  =' ,I5,5X, 'IBA 

ENDIF 


:',F10.3,5X,'CASH 


=',F10.3) 


SUBROUTINE 


P  C  F  H  E  L  P 


THIS  SUBROUTINE  PROVIDES  INFORMATION  ON  THE  CASH  FLOW  CALCULATIONS 
IN  A  PROBABILISTIC  PROBLEM. 


SUBROUTINE  PCFHELP 


URITE(*,1) 

1  F0RHAT(2S(/)) 
WRITE(*,2) 

2  FORMATCSX, 'THIS 


PORTION 


PROGRAM 


*5X, 'TIONS 

IN  THE 

CASE  OF  A  PROBABILISTIC 

NETWORK 

•5X, 'YOU 

WILL  BE 

ASKED  TO  INPUT:' 

.//. 

•10X,'1. 

INTEREST 

RATE  ON  MONEY 

DEPOSITED 

*10X,'2. 

INTEREST 

RATE  ON  HONEY 

BORROWED' 

*10X,'3. 

RETENTION 

RATE',/, 

• 

o 

X 

INITIAL 

CAPITAL',//, 

*10X,'5. 

AMOUNT 

OF  HONEY  TO  BE 

RECEIVED 

AT  EACH 

•10X, '6. 

DUE  DATE 

OF  EACH  KEY 

EVENT',/, 

*10X,'7. 

LATE  PENALTY  (PER  PERIOD)  FOR 

EACH  KEY 

CALCULA-',/, 


ACH  KEY  EVENT',/, 
KEY  EVENT',//) 


WRITE{*,10) 

10  FORMAT(5(/)) 
WR1TE(*.3) 

3  FORMATCSX, 'THE 
•5X,'YOU  WHE 
*5X,>THE  RES 
*5X,'OF  1-7, 

*5X, 'YOU  HAY 
*5X, 'THE  BIO 
*5X,'SENT  TC 
•5X, 'WHICH  I 
PAUSE 


'THE  DISTRIBUTION  INFORMATION  WILL  BE  AVAILABLE  TO',/, 

WHEN  INPUTTING  5-7,  ABOVE.',///, 

RESULT  WILL  BE  AN  EXPECTED  PROFIT  FOR  THE  GIVEN  VALUES',/, 
1-7,  ABOVE.',//, 

MAY  RUN  AS  MANY  ALTERNATIVES  AS  YOU  LIKE  TO  DETERMINE',/, 
BIO  PACKAGE  THAT  YOU  WILL  MAKE.  THE  OUTPUT  WILL  BE  ',/, 
TO  THE  SCREEN,  AND  ALSO  TO  A  FILE  NAMED  "CASHOUT  .OUT" ' ,/, 
WILL  BE  ON  THE  DEFAULT  DRIVE.',///) 


RETURN 

END 


SUBROUTINE 


P  R  C  N  T  L 


THIS  SUBROUTINE  CALCULATES  THE  PERCENTILES  OF  THE  DISTRIBUTIONS. 

IT  USES  A  LINEAR  INTERPOLATION  BETWEEN  ENDPOINTS  OF  THE  EMPIRICAL 

DISTRIBUTIONS. 


SUBROUTINE  PRCNTL<IFLAGG) 

COMMON/DCV/COST(11),DURN(10),STPERC,PENALTY(1O),PERCNT(22,20) 

COMMON/CFMV/SDISBUR{100),PAY(10,100),RMEAN(11),PINIT,HXPERD,NKEYEN 

*,IKEY(10),TPAY(100),OMEAN(10),DF(22,102),LL{22),NRR(22),NCELLS{22) 

*,WIDTH(22),OSTO{10),RSTD(11),COF<22,102),CORR{11),BHATO(11) 

*,BHAT1(11),FRACN(10) 

WRITE(*,*)  'WORKING' 

IFLAGG=1 

DO  2000  1=1,22 

DO  2005  J=1,20 

PERCNT(I,J)=0.0 
CONTINUE 


2000  CONTINUE 

C 

MARK1=1 

MARK2=0 

C 

C-- -DETERMINE  PERCENTILES  THAT  ARE  MULTIPLES  OF  .05 

C 

2006  00  2008  IN=MARIt1  .Nt:EYEN'*'HARK2 

DO  2010  IP=1,20 

RIP=IP»5/100.0 

DO  2012  IO=1.NCELLS(IN)+2 

IF  (lO.EQ.I.AND.CDF(IN.ID).GT.RIP)  THEN 

PERCNT(IN,IP)=-1 
GOTO  2010 
END  IF 

IF  (C0F(IN,NCELLS(IN)+2).LT.RIP.AND.ID.EQ.NCELLS(IM)+2)  THEN 

PERCNT(IN,IP)=-1 
GOTO  2010 
ENDIF 

IF  (CDF(IN,ID).LT.RIP)  GOTO  2012 

IF  (CDF(IN,ID).EQ.RIP)  THEN 

PERCNT(IN,IP)=LL(IN)+UtDTH(IN)*(ID-1) 

GOTO  2010 
ENDIF 

SLOPE=(CDF(IN,ID)-COF(IN,ID-1))/WIDTH(IN) 

B=COF{IN,ID)-SLOPE*(LL(IN)+UIOTH(IN)*(ID-1)) 

IF  (SLOPE. EQ.O.)  THEN 

PERCNT(IN,IP)=LL(IN)+WI0TH<IN)*(ID-1) 

ELSE 

PERCNT(IN,IP)=(RIP-B)/SLOPE 

ENDIF 

GOTO  2010 
2012  CONTINUE 
2010  CONTINUE 
2008  CONTINUE 
C 

IF  (MARH1.EQ.1)  THEN 

MARK1=11 
MARK2=10 
GOTO  2006 
ENDIF 
C 

IF  (MARKI.EO.II)  THEN 

MARIC1=22 
MARK2=22-NKEYEN 
GOTO  2006 
ENDIF 
C 

RETURN 

END 

C . 

c 

C  SUBROUTINE  P  R  0  B  A  B 
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THIS  SUBROUTINE 


DOES  CASH  FLOW  CALCULATIONS 


IF  THE  NETWORK 


PROBABILISTIC. 


EXPECTED 


NOTE:  IN  THIS  CASE  IT  SIMPLY  CALCULATES  THE 

PROFIT  FOR  THE  VALUES  WHICH  ARE  GIVEN  IN  THE  BID  PACKAGE 


SUBROUTINE  PR06AB ( NOPT I ON , I F L AGG ) 


COMMON/CFMV/SDISBUR(100),PAY(10,100).RMEAN(11),PINIT,MXPERD,NKEYEN 

*,IKEY(10),TPAY(100),DMEAN{10),DF{22.102),LL(22),NRR(22),NCELLS(22) 

•.WIDTH(22),DSTD(10),RST0(11),CDF(22,102),CORR(11),BHAT0(115 

*,BHAT(11),FRACN{10) 

COMMON/CFP/ALPHA, BETA, POWER, RATE, DESIRE, NCYCLE, CAPITAL, TOL.CMOOEL 
COMMON/DCV/COST(11),DURN(10),STPERC,PENALTY(10),PERCNT(22,20) 
INTEGER  NPERD(10),FLAG2,CMOOEL 

REAL  TIAF,TIBA,TRETEN,RETEN,RATIO(10),DUMPAY(100) 


1549  WRITE(*,15S0) 

1550  FORMAT(25(/)) 

WRITEC‘,1551) 

1551  FORMAT{////10X,‘1.  PROCEED  WITH  CASH  FLOW  CALCULATIONS',/, 

•10X,'2.  PROBABILISTIC  CASH  FLOW  INFORMATION',/, 

*10X,'3.  RETURN  TO  MAIN  MENU',///) 


WRITE(*,1552) 

1552  FORMAT<5X, 'ENTER 

READ(*,*)  ICHOICE 
IF  (ICHOICE. EQ. 2) 
CALL  PCFHELP 
GOTO  1549 
END  IF 

IF  (ICHOICE. EQ. 3} 


CHOICE') 


ISTOP=0 

CALL  INPUT(NOPTION,ISTOP,IFLAGG) 
IF  (ISTOP.EQ.1)  RETURN 


POWER=NCYCLE/365.0 

DESI=DESIRE/100.0 

TPINIT=0.0 


-COMPUTE 


THE  RATIO  OF  WHAT  WE  ASK  FOR  AT  A  KEY  EVENT 


AND  WHAT 


-EXPECTED 


COST  IS  OF  THE  SUBGRAPH 


OF  THE  KEY  EVENT. 


ALSO  CALCULATE 


OF  THE  COST  WE  WANT  TO  RECEIVE 


AT  THE  PROJECT 


THE  EXPECTED 


DO  1590  JJ=1,100 

DUMPAY(JJ)=0.0 

1590  CONTINUE 

DO  1591  JJ=1,NKEYEN 

RATIO(JJ)=0.0 
NPERD(JJ)=0.0 

1591  CONTINUE 


c 


DO  1600  JJ=1,NKEYEN 

RATIO(JJ)=COST(JJ)/RMEAN(JJ) 

1600  CONTINUE 

IF  (PINIT.GT.O.)  THEN 

RATIO(11)=COST(11)/PINIT 
TPINIT=RATIO(11)»PINIT 
END  IF 
C 

C-- -ALTER  INCOME  ARRAYS  ACCORDINGLY 
C 

DO  1605  J=1,NKEYEN 

DO  1610  JJ=1,MXPER0 

PAY ( J , J J )=PAY ( J , J J )*RAT I 0{ J ) 

1610  CONTINUE 

1605  CONTINUE 

C 

C- ■ -DETERMINE  TOTAL  INCOME  IN  ALL  PERIODS  FOR  ALL  KEY  EVENTS 

C 

DO  1616  I=1,MXPER0 

DO  1617  J=1,NKEYEN 

DUMPAY< I )=DUMPAY( I )+PAY( J, I ) 

1617  CONTINUE 

1616  CONTINUE 

C 

C- • -CALCULATE  THE  PERIOD  IN  WHICH  WE  PROMISE  DELIVERY  AT  EACH  KEY  EVENT 

C 

DO  1615  JJ=1,NKEYEN 

IF((0URN(JJ)/NCYCLE).EQ. INT(DURNCJJ)/NCYCLE))  THEN 

NPERD(JJ)=DURN{JJ)/NCYCLE 

ELSE 

NPERD(JJ)=0URN(JJ)/NCYCLE*1 
END  IF 

1615  continue 

c 

CASH=0.0 

TIAF=0.00 

TIBA=0.00 

TRETEN=0.00 

FLAG2=1 

DO  1510  I=1,MXPERD»1 

C 

:  initial  PERIOD 

c 

IF  (I.EQ.1)  then 

CASH^CAP; ^Al*tpin!T  SDISBUR(I) 

call  intrt( I ,casm,power,alpha,beta,tiaf,tiba,trften,flag2) 

WRITE(*,1950)  I, CASH 

1950  FORMAT! lx , 'PER  IOC 13, 2x, 'CASH  =',F10.2) 

GO  TO  1510 

END  IF 

C 

C  At'ER  LAST  PERIOD 

174 


1520 


1991 


C 

C---ALL 

C 


1530 


1980 


1951 

C 

C 

C 

1510 

C 


1<5G1 


IF  (I.EQ.MXPERD+1)  THEN 

CASH=CASH+DUMPAY( I ■ 1 )+TRETEN 
DO  1520  JJ  =  1,NICEYEN 

IF  (NPERD(JJ).LT.I)  CASH=CASH -PENALTY! JJ )»CUH( JJ , I ) 

CONTINUE 

CTERM=CASH 

WRITE!*, 1991)  CASH 

URITE!3,1991)  CASH 

FORMAT!25X, 'TERMINAL  CASH  POSITION  =',F10.3> 

GO  TO  1510 
END  IF 

PERIXS  BETWEEN  BEGINNING  AND  END 

RETEN=DUMPAY! I  - 1 )*RATE 
TRETEN=TRETEN+RETEN 

CASH=CASH+DUHPAY ! I  - 1 )• ! 1  -  RATE ) • SD I SBUR! 1 ) 

DO  1530  JJ=1,NKEYEN 

IF  !NPERD!JJ).LT.I)  CASH=CASH-PENALTY!JJ)*CUM!JJ, I ) 

CONTINUE 

CALL  INTRT! I, CASH, POWER, ALPHA, BETA, TIAF,TIBA,TRETEN,FLAG2) 

WRITE!*, 1980)  TRETEN,RETEN 

FORMAT !/15X, 'CUMULATIVE  RETENTION  =', F10  3, 3X, 'RETENTION 

F9.3/) 

WRITE!*, 1951)  I, CASH 

FOfiMAT!1X,  'PERIX',I3,2X,'CASH  =',F10.2) 


CONTINUE 

PROFIT=!CASH-CAPITAL)/RMEAN!11) 


WRITE!*, 1901) 

WRITE!3,1901) 

FORMAT!//5X,  ' . BID  PACKAGE . ',//) 

WRITE!*, 1902)  COST!11) 

WRITE!3,1902)  C0ST!11) 

FORMAT! IX, F10. 2, 'RECEIVED  AT  PROJECT  START') 

DO  19'0  !=1,NKEYEN 

WRI’E(*,’911)  IKEY!I),COST!I),DURN!I),PENALTY(I) 

-R: '^(3, 1911 )  IKEYII  ),COST!I),DURN!I),PENALTY(I) 

.  DM  ■  :  M'.jE 


tXA  •  ■  ,  '  ley 

•  9  ' :  .  £  VE  L 

•  :(  ' .tsY  c^te 

>  »  ■  ;  TY 


EVENT', 15,/, 

‘  .F10.2,/, 
*',F10.2,/, 

=' ,F10.2,///) 


P9D' ! ’ 


t'RD'IT  =',F12.3/) 

.Ml  Jin  <  •  •  I 
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►  -lU*  *4iJ'**’ 


•  fs'  ^  (s-Jlir'  ri^^l  ttfi  »«>  • 


I 


FORHAT{//10X, 'EXPECTED 
WRITE(*,1904) 
WRITE(3,1904) 
F0RMAT{/2X, 'UNDER 
WRITE(*,1905)  CAP 

WRITE{3,1905)  CAP 

F0RMAT(/8X, 'INITIAL 
WRITE(»,1906)  ALP 

WRITE(*.1907)  BET 

WRITE{*,1908)  RAT 

WRITE(3,1906)  ALP 

WRITE(3,1907)  BET 

WRITE(3,1908)  RAT 

F0RHAT(/8X,' INTEREST 
F0fiNAT(/8X, 'INTEREST 
F0RHAT(/8X, 'RETENTION 
RETURN 


PROJECT 


CONSTRAINTS: 


•,F12.2,//) 


CAPITAL 

CAPITAL 


CAPITAL 


=',F10.2) 


ON  MONEY 
ON  MONEY 


=',F6.L, 
=  ’,F6.‘., 


',F6.4,'X') 


SUBROUTINE  P  W  R  I  T  E 


THIS  SUBROUTINE  WRITES  THE  PERCENTI.ts  TC  IhF  s:,sF‘> 


SUBROUTINE  PwRITE 

COMMON/OCV/COST(11),OURN(lO),STPE»C,PENA.’’.  Pf  B :  h 

C0MMON/CFMV/S0IS8UR(  lOO.PAM  1t.  1.:0),RME*N(  ’  *  ;  ,  t  '  h  '  •  ,  H.i'f  b:  sm  •  i  ^ 
■,UEY(10),TPAT(100),DMEAN(10),0F(;?  02 ,,;.(??)  ,hbb  H-f  .S-,', 

',WlDTH(22),OSTD(10),R5TO<1T),CDf(?  .  '  T  i  , 'rjBB  r  •  •  b.j- 
',BHATU11).FRACN(1C) 


WRITE!*, 878) 

FIWMATcS*. 'ENTER  NUM8ES  Of  i[<  f  vF  s  ’  ih-ib 

READ!*,*)  NAEF 
IF  (NAEY.Ea.O)  (iC'C  88'- 

IF  (NKEY.LT.UE’ni.OR  NAEr  :AfMNrf*fN  > 

WRITEf*,*)  'O,"  Of  BANOE  bf  •  bh 

RETURN 


DO  231  I^'.NAFi'EN 
IF  (  UF- (  1  ) -EQ  NAEi’  I 


IF  (NAET.EQ.O) 
WRITE;  *,88  7) 
WR: •E(*,88fl) 


hb:'E(*,8«<tj 

WRITE!*,  SB'S  ) 
UP  I  'E  !  *,89':  ) 


••  -S  .S  *.  .N 


I 

( 


END  IF 

886  FORMAT  (20X, 'KEY  EVENT  ---MS) 

889  FORMAT (15X, ‘DURAT ION ' ,20X, 'COST • ,/) 

890  FORMATCSX, 'PERCENTILE  VALUE 

887  FORMAT(20X, -total  COST') 

888  FORMAT (15X,'  percentile  VALUE') 


00  891  1*1,20 

RIP*I*5/100. 


IF  (NKEY.EO.O) 

then 

IF  (I.E0.11) 

THEN 

WRITE!*,*) 

'Hit  Return  for  more.' 

READ!*, 893) 

SFLAG 

endif 

UP  ,'?£(*,  89^) 

R;f',PEPCN’C22,  I ) 

&0T0  891 

ENOI  F 

IF  ( 1 .E0.11 ) 

them 

WRrEC,*) 

■N't  Return  <or  e  ' 

»£A:  ;‘.895  , 

Sr  A  . 

F**'  ;  f 

w®  *  ?  *  *»'*' 

,  .  (  K  a-j,  • . ,,,,,,  ;  a  ■  t.(  B-  I,  - . 

"*l  •  N:  ( 

f*  Sf 

<  yBmA  *  A  • 

•  *mA  ■  *  ,  *1  i  ' 

(  «IIA  •  'i  (  .  '  I  (  '  •  ».i  »  ^  '  a  (  * 


b(  ‘ 


h\i  I 


percentile 


•  fc  I  •  m 


V 


tMJ£3 


&10X.'3.  EXPECTED  "CXJTFLOW"  vs.  TOTAL  ''INFLOW'",/, 
&10X,'4.  --RETURN  TO  HAIN  MENU--',/, 

&10X,'5.  CASH  FLOW  INFORMATION',//, 

&10X,'6.  EXIT  PROGRAM',//) 

READ(*,*)  NV 

IF  (NV.EQ.6)  STOP 

IF  (NV.LT.1.0R.NV.GT.5)  THEN 

WRITEC*,*)  'VALUE  OUT  OF  RANGE' 

WRITEC*,*)  '---RETURN  TO  MAIN---' 

RETURN 


IF  (NV.E0.4)  RETURN 


IF  (NV.EQ.5)  THEN 
CALI  CFHELP 
GOTO  222 
END  IF 

IF  (NV.EQ.2)  THEN 

WR1TE(*,*)  'DUE  TO  WHICH  KEY  EVENT?  (0  IF  TOTAL  "INFLOW")' 
REAO(»,»)  NKEY 
IF  (NKET.EQ.O)  GOTO  2A0 

IF  (NKEY. L?.IKEY(1). OR. NKEY. GT.IKEY{NKEYEN))  THEN 

WfiITE(*,»)  'OUT  OF  RANGE  ---  RETURN  TO  MAIN' 

RETURN 

ENDIF 

00  230  l*1,NKEYEN 

IF  (IKEY(l).EO.NKEY)  NNN^I 

CONTINUE 


IF  (N.  a. 1 .OR. NV.EQ.2) 


WRITE (•,290) 

FORNAM///12*.  'PERIOD 
j '  ■  C 

IF  (NV.FQ. 2. AND. NKET.EQ.O) 

TOVMAT  (  nx  .  IS,8*  ,  F 1?.  2) 

DO  213  I'T,**xp£R0 


FLOW',//) 


WRITE(*,292) 


(M(Xj(  I  .i5).fQ.O) 


wo  I  -  E  (  •  ,  •  ) 
RF*r  C./QS) 

‘  NC  I  > 

■F  (NV.E3.1) 


'Hit  ReTkjrn  for  Tno  e . 


WR)'E(*,29T) 


(NV  fC  ?  AND .NKET . NE  .0) 
(  N  V  f  C  AND  NXF  ,  FO  C  ) 


I  JSMA'  t  I  '  x ,  I  ,  8«  , '  V  2  ) 


F  .  SF  ‘I  (NV  FQ  5)  Then 


I  .  SO  I  SB  JR  (  : ) 
WRI  TEC.29-  ) 
WRITEC.291  ) 


I ,PAT(NNN, I ) 
I  , TPATF I  ) 


250 


••OUTFLOW" 


"INFLOW"',//) 


FORMAT (///I 2X, •PERIOD 
JI=0 

WRITE(’*,251)  JI.PINIT 
251  FORMAT{12X,I4,20X,F11.2) 

DO  255  I=1,MXPERO 

IF  (MOO(1,15).EQ.O)  THEN 

WRITEC*,*)  •Hit  Return  for  more.* 

READ (*,295)  NCHAR 

END  IF 

WRITEC*. 260)  I,SOISBUR(I),TPAY(I) 

260  FORMAT(12X,I4,6X,F11.2,3X,F11.2) 

255  CONTINUE 

END  IF 

PAUSE 

GOTO  222 
295  FORMAT (A1) 

299  F0RMAT(25{/)) 

RETURN 

END 


